

SONY: LE BIT QUI FAIT MAL ! 

To hit, ga veut dire trapper fort en anglais et c'est bien ce qu'a ('intention de faire Sony avec son nouveau 
micro-ordinateur aux normes MSX : le HIT BIT 75 F. 



PASSION ET MSX 

Bon, a prion les MSX on connait. 
Ces engms qui ont fait naguere 
trembler de peur les constructeurs 
amencains et europeens ne sont 
pas s< dangereux qu'on a bien voulu 
le dire. En France, c'est meme car- 
rement le bide : a peine 20.000 ma- 
chines, toutes marques confondues. 
ont trouve asile chez les utilisa- 
teurs Dieu sait pourtant que les im- 
port ateurs oHiciets ou oaralleles ne 



date Et quand le vrai grand public 



trflnant a cdt^ de la tele, du magne- 
toscope et de la chaine Hi-fi, 
comme au Japon ! 

SONY PAS FOU 

Et c'est la que Sony intervient 
Apres avoir laisse essuyer les pla- 
tres aux petits importateurs ou au 
trop-en-avance comme Canon il ar- 




manquent pas et que les publicites 
qui fusent dans toutes sortes de 
medias auraient dO faire decoller les 
ventes de cette norme nippone, Le 
problems, c'est que jusqu'a pre- 
sent, la France est nettement sous- 
equipee et I'informatique nest pas 
encore grand public. Ce sont tou- 
jours les hobbistes qui font I'essen- 
tiei de la clientele et ils n'achetent 
pas un ordinateur comme un ma- 
gnetoscope La standardisation ap- 
parente de ces machines en fait des 
utilitaires sans passion. et sans pas- 
sion pas de hobbistes ' 

HONORABLE GRAND PUBLIC 

Mais i'informatique grand public Y'A TOUT 
n est pas une vue de I'esprit, loin 
de Id ' Le taux d'equipement des 
amencams et des anglais est la 
pour le prouver La France va sui- 
vre. ce n'est qu'une question de 



rive au bon moment, quand le 
grand public est bien chaud et pret 
a plonger. Et au lieu de se pointer 
avec un simple MSX, c'est avec un 
Sony qu'il attaque. un vrai Sony. 
peripheriques. logiciels, design et 
image de marque compris. 

HENRI IV NEST PAS MORT 

Par-dessus le marcfie, nous aliens 
voir que si le HIT BIT est effective- 
ment un MSX. il a suftisamment 
d'atouts pour rallier aussl les hob- 
bistes Comme pour tous les pro- 
duits de la marque, le genie marke- 
ting de Sony va encore trapper ! 



Mais laissons la ces considerations 
mercantiles et regardons done de 
quoi est faite la chose. D'abord, y'a 
tout : unite centrale. lecteur de cas- 



C'est nouveau, ca vient de sortir : 

iactualitede la mtcro-tnformatique. lire pages 9,10. 



DEULIGNEURS 

Las faineants sont en page K) . 



FORMATION A LASSEMBLEUR 

Le prof et I amateur eclaire vous attendant a la page 19. 



settes. lecteur de disquettes. se- 
cond lecteur de disquettes sans 
controlcur. joystick, second joystick 
a inlrarouge, track ball, logiciels ex- 
clusifs. documentations en francais. 
macro-assembleur et look d'enfer 

LA CENTRALE DU 
PARTICULAR 

L'unite centrale ? Un MSX. Z80, 32 
Ko de ROM. 60 Ko de RAM dont 16 
Ko de me"moire ecran et 28815 
octets utilisateur : le haut du pave 
dans la norme MSX, mais classi- 
que. Dans la meme lignee. on re- 
trouve un port cartouche, un clavier 
accentue. 5 touches de fonction 
programmables, un affichage 39 co- 
lonnes de 24 lignes. une resolution 
graphique de 256 x 192 points en 
16 couleurs. 3 canaux et 8 octaves 
pour le son, une prise peritel, une 
alimentation incorporee. une inter- 
face cassette, une interface impri- 
mante parallele-centronics, 2 
connecteurs joysticks, un deuxieme 
port cartouche, une documentation 
en Irancais plus epaisse que I'Ency- 
clopedia Universalis, un bouquin 
d initiation au basic pour les debu- 
tants et un package a garder pour 
en (aire une lampe de chevet Tout 
y est ' 

El cette sacree console se paie 
meme le luxe d avoir des plus : 16 
Ko de logiciel mtegres. c'est pas 
mal. non ? Les logiciels en question 
sont un agenda, une gestion de 
fiches et un carnet d'adresses Pour 
sauvegarder les informations de ces 
utilitaires residents, vous pourrez 
utiliser soit un classique lecteur de 
cassettes, soit un lecteur de dis- 
quettes soil une cartouche de RAM 
non-volatile de 4 Ko avec batterie. 
Elle a encore quelque chose de 
plus ? Oui : de la gueule et c'est du 
Sony 3300 francs, y'a moins 
cher ? Oui. mais vous voulez un 
Sony, non ? 

LECTEUR MAOE OUT HONG- 
KONG 

II sent pas bon le sable chaud, mais 
il est beau le lecteur de cassettes 
tout noir avec plein de boutons et 
de touches partout. Et il nest PAS 
(abnque a HONG-KONG comme 



celui de Thomson, de Matra. de 
Tout le monde et de Personne. 
c'est au Japon qu'on lui a fait cette 




joiie robe et qu'on a compris qu'un 
monitor, un inverseur de phase et 
un bon azimutage laisait la diffe- 
rence entre un lecteur de cassettes 
informatiques et un crin-crin pnur 
ecouter Edith Piaf chanter 'Mon le- 
gionnaire* en mono. 600 bafles ? Et 
alors. c'est un Sony ! 
La cartouche de Ram 4 Ko alimen- 
ted par pile qui vous permettra de 
copier I'agenda, le carnet d'adres- 
ses et le dernier programme que 
vous venez d'ficrire vous coutera 
450 francs et vous pourrez la met- 
tre dans votre poche. Plus cher 
qu'une pochette en soie. mais plus 
utile 

NE QUITTEZ PAS, JE VOUS 
PASSE LE STANDARD 

Je vais vous enquiquiner encore 
une fois avec des histoires de stan- 
dard, il n'y a pas de disquettes 3.5 
pouces en France et c'est pourtant 
ie standard qu'ont retenu deux or- 
ganismes on ne peut plus ofliciels, 
I'un amencain (ANSI), I'autre euro- 
peen (ECMA) pour enger un stan- 
dard quasi universe! La base de ce 
standard repose sur Sony qui, 
comme pour la video avec le Beta- 
max et le VHS, s'est retrouve en 



concurrence avec le 3 pouces Hita- 
chi Sur le papier c est Sony qui a 
gagne. sur le terrain c'est Hitachi 
Mais pas sur tous les terrains, il n'y 
a guere qu'en France et en Angie- 
terre qu'Hitachi a marque quelques 
points ! Et si Amstrad, Einstein et 
quelques autres francs-tireurs onl 
adopte ce format, c'est plus par 
opportunity et prix soldes par Hita- 
chi que pour deciencher une nou- 
velle gueguerre Le standard futur 
est bien le 3.5 pouces et c'est evi- 
demment cette norme qui a ete re- 
tenue par Sony pour ses lecteurs de 
disquettes noirs, beaux, e'est-nou- 
veau-c'est-Sony ! 

Un lecteur avec contrbTeur et un 
sans si vous en voulez deux et si 
vous avez les moyens Pour les ca- 
racteristiques techniques : bernique. 
le DOS nest pas pret et tout ce que 
je peux vous dire c'est que les dis- 
quettes font, non formatees, 500 ou 
1000 Ko selon qu'elles sont simple 
ou double face Ca doit faire du 360 
Ko par face mais il faut attendre le. 
DOS qui arrive vers le 15 mai. Le 
prix Wahou est justifie par le fait 
que vous etes un snobinard qui 
voulez acheter un vrai Sony (3700 
trancsavec contr&leur et 3000 sans ) 



CINOCHE-TELOCHE 

page 14 et 15 . 



BIDOUILLE GRENOUILLE 

Ou comment tricher. pirater. modifier, tratiquer. magouiller. 
bidouitler et grenoulller avec les logiciels du monde entier. 
Male dens la legalise, au moins ? Of course, mon general ! 
Lire page 9. 



de votre blanche mam manucuree 
par Jean-Louis David, vous cares- 
sez negligemment la tete de votre 
Yorkshire fnse par Bruno de chez 
Dessanges et enrubanne par Paloma 
Picasso Pendant que s'egrenent les 
premieres notes de votre Rachmani- 
nov prefere sur votre 300 watts. 
I'ecran de votre Profile laisse appa- 
raitre le premier tableau de Lode 
Runner. Vous empoignez la tete 
courte et precise de votre joyst 
Sony et la lutte commence 





ZIM BOUM ZLIKA 



Allonge sur votre canape pleine 
peau. un verre de pur malt a cote 



C est pas beau ca ? Vous en 
connaissez des journaux qui vous 
font rtiver de la sorte ? Hein, vous 
en connaissez. vous qui dormez sur 
un grabat. qui exhibez des onqles 
oegueulasses, qui perdez vos cne- 
veux a pleines poignees et qui, en 
guise de ciebard de luxe, n avez 
que le chat rape de la concierge qui 
vient renifler vos poubelles ? Mais 
les joysticks, vous savez ce que 
c'est quand meme ? C'est ce que 
les journaux normalement consti- 
tues et anglophobes appellent des 
poignees de jeux. Quelle horreur ! 
Pourquoi pas des paluches ludiques 
ou des manettes onanistes ! 
Sony a deux joysticks dans son 
usine. deux modeles a mettre sous 
globe pour ne pas les abtmer tene- 
ment quits sont Sony. Un beau 
avec une grosse poignee erotique 
bizarrement articuiee et deux bou- 
tons de feu commutables pour droi- 
tier ou gaucher. Un autre beau avec 
les memes caracteristiques, un tout 
petit levier court et precis fonc- 
tionne sans fil, la commande est a 
inlrarouge comme Exelvision et per- 
met de jouer de loin, plus particu- 
lierement du canape dont je vous 

Suite page 16 



PANNE PANNE. 

THIRIET est en page 17 . 



CONCOURS PERMANENTS 

Votre programme, non content de vous rapporter 1.000 
francs par page publiee, peut vols rapporter 20.000 
francs chaque mois ou un voyage en Calif ornte pour deux 
cheque trlmestre. Reglement en pege interieure. 



DES PROGRAMMES POUR VOTRE ORDINATEUR: 
AMSTRAD . APPLE lie et He . CANON X-07 . CASIO FX 702-P. 
COMMODORE 64 ET VIC 20 . EXELVISION EXL 100 . HECTOR HR . 
MSX et compatibles . ORIC 1 ET ATMOS . SINCLAIR ZX 81 ET SPECTRUM. 
SHARP PC 1500 . TEXAS TI-99/4 A. THOMSON T07, TO7/70, ET M05. 



N°82 



Allemagne 3.50 DM - Belgique 7? Frs - Canada 2.50 S - Luxembourg 74 Frs - Suisse 3.30 Frs - 



DONALD ET RIRI 



DONALD en partait naif, s'est une fois de plus laisse 
embarquer dans une situation invraisemblable Vous qui 
etes malin, serez-vous capable de le sortir de la r> .. 

Roland LONGT 



Mode d emploi : 

Ce jeu fail appel a une routine en langage MACHINE creee par le 
programme "DONALD 2" II faudra done sauvegarder !e programme 
"DONALD r suivi de la routine que vous oblrendrez en lancanl le 
programme "DONALD 2". 




LISTING 1 



10 REM donald I 
20 MEMORY l4ouu 

30 MODE 6 PAPER 5- BORDER HEN 12 
CLS 
40 PRINT PRINT" D U N H L D 

«. R 1 R 1 

50 PRINT PRINT PRINT PEN 1 PRINT 
PRINT" Par" 

ok) PEN 3 PRINT PRINT PRINT PRINT" 
Roland Ik Rich*rd" PRINT PRINT" 
LONGT " 
76 PRINT PRINT PRINT PEN 6 PRINT" 

Rev les du JEU " 
80 PRINT PRINT PRINT PRINT PEN 10 
PRINT" 0/N " 
96 IF INKEY(,34>-0 THEN GOTO UH 
ltfk) IF INKEY(46j«0 THEN GOTO 236 
110 GOTO 90 
126 MODE 1 PAPER PEN 3 

130 PRINT" REGLES du J 

£U " 

140 PRINT PEN 1 PRINT"DONALD doit 
Passer 1* Plus Possible d« bavave 
s a son neveu RIRI 4ui est de 
l' autre cote de 1* riviere . " 
150 PRINT PRINT"RIRI doit Prendre 

ces b*9*9*s nais il nest Pes to 
ujours fidele «u Poste ." 
160 PRINT i PEN 3 PRINT"RTTENTION ! " 
176 PRINT- PEN l'PRINT'DONHLD H 
ute sur des tortue* 4ui devor 
ent les Poissons ft' ill sont imi 

Pres ,et slors il riseue de fn 
r* PLOUf !... B 
180 PRINTPRINT"U vitesse de trsv 
ersee ent re en ccw*te. DONALD a 3 v 
les et le Parti* est linitee a 2 m 
inutes " 

190 PRINT PRINT PEN 3 PRINT" UTI 
USER LES TOUCHES FLECHEES ■ 
.'06 PRINT" (droite I 9a u 

che>" 
210 PEN 2- PRINT PRINT" 

aPPuiter ENTER du clavier " 
220 IF INKEY<16)-6 THEN GOTO 230 E 
LSE GOTO 220 

230 IF PEEK< 20000 >< >62 THEN GOSUB 
2060 

240 tewPs-TIME 

250 SYMBOL 240,0,57.125.223.255-12 
5,57,0 

260 SYMBOL 241,3,7.13.31,54.63,96, 
192 

276 SYMBOL 242,64,224.183,253,223, 
246,48,24 

266 DIM da(12^DlM drW2 > 
290 INK 9, 15 
300 INK 7, 7 

310 da<.6y-20666'dat 1 ;-20666 
320 dr( >-2804 1 dr< 1 J-2804 1 
330 da(2>-20?31 
340 dr'. 2 .-29002 
350 da<3J=25I17 
360 dr<.3j»29963 
370 da( 4;-21462 
360 dn 4 .--36924 
390 da<5>"25848 
400 dr<5>-31885 
410 da< £>>22193 
420 dr(6>"32646 
430 da* ?>-265?9 
440 dr< 7 »* 33687 
450 da( 6 J-22924 
460 drCBj-34768 
470 da<9)-27316 
480 dr<9;»35?29 
498 da<16>-23655 
500 dr< 18 ."■36696 
510 da< 11 j-24386 
520 drt 11 >-37651 
530 dat 12>«24386 
540 dr(12>-37631 

550 c< 1 1*39063 i c< 2 »»39249 c< i )»394 
35 

560 chance =3 
570 MODE 

580 REM dessin scene 

590 LOCATE 1,9 PAPER 7 PRINT" 

PRINT" ".PRINT" "PRINT" " 

PRINT" "PRINT" " 
600 PRINT" "PRINT" "PRINT" 

610 LOCATE 19,9 PRINT" " LQlATE t 
9,10 PRINT" "LOCATE 1»,11 PRINI" 

"LOCATE 19-12 PRINT" " LUCAIE 
20.13 ■ PRINT" "'LOCATE 20,14 PRINT" 
"LOCATE 20,15 PRINT" " LOCATE 20 
,16'PRINT" "'LOCATE 19-1? PRINT" 

628 FOR n= 17 TO 25 

630 LOCRTE l.nPRINT" "NEXT n 

640 LOCATE 19,25 PRINT" " 

650 FOR n-17 TO 24 

660 LOCATE l9.n;pRINT" " 

670 NEXT n 

688 WINDOW #1*5,7, 19,28 



690 WINDOW #2,8. 10, 19,25 
700 WINDOW #3. 11, 12, 19,25 
710 WINDOW #4,13,15,19,25 

729 UIHD'JU #5,16.16.19,25 

730 WINDOW #6-4,19,17,18 
740 WINDOW #7,5,18,7,16 

75© FOR »-B TO 15 PLOT 6l8,M'DPRW 

R 39,0.7'NEXT m 

760 PAPER #1,6 CLS #1 

770 PAPER #2.6 CLS #2 

780 PAPER #3,6 XLS #3 

790 PAPER #4,6 CLS #4 

800 PAPER #5,6 CLS #5 

618 PAPER #6,6 CLS #6 PEN #6,3 

828 PAPER #6,6 PRINTN6," 

"PAPER #6,6 
830 PAPER #7,0 'CLS*? 
840 record=PEEK< 15000 >-h PEEKt 156ol 
) >*256 

850 LOCRTE 7,1 PEN 3 PAPER PRINT 
"SCORE ";;PEN 4 PRINT SCj" " 
860 LOCATE 7.3 PEN 9 PR I NT "Record 
" ; record 

880 REM Programme PrinciPale 
900 PEN 1 

910 EVERY 60,0 GQSUB 1140 
920 EVERY 76,1 GOSUB 1270 
930 EVERY 100,3 GOSUB 1910 
940 EVERY 80,2 GOSUB 1400 
956 si»6 
960 te=T!ME 

970 CALL cU/'CALL C 2> CALL c< 3 .' 
980 PAPER 6 
990 GOSUB 1796 
i860 REM 

1016 IF 1NKEY*. 1 >«6 AND PO>l THEN L 
LS #7 Po-Po*l GOSUB 1790 FUR j«1 T 
150 NEXT i CLS»? Po»Po*l GOSUB 1 
796 

1020 IF TIME-temPs>4866o THEN 1 700 
1036 IF INKEYU>=6 AND Po=0 IHEN D 
[> FOR ef"4 TO 8 LOCATE 3, ef 'PRINT 

"NEXT ef ElPo-2 GOSUB lTSU 
1840 IF Po«12 THEN FOR j«i Tu 150^ 
NEXT J'CLS #7 Po-10 GOSUB 1790 
1056 IF INKEY(8J»0 RND Po>l THf.N C 
LS •?Po'=Po-l GUbUB 1790 FUR '=1 I 
200NEXI j CL&#7>Po=Po-l' GOSUB I 
796 

1660 IF PEEKt 56451 >=u mND PEEK<bw4 
51-06K>6 THEN GObUB 15W« 
1070 IF PEEK<58463>-0 HNL- PEEK<-W4 
63-86K>6 THEN GUSUB l5kJO 
1680 IF PEEK ..564 75 >=M AND r>£EM5u4 
75-80 K>0 THEN GOSUB 150U 
1690 IF PEEKX 56437 >=y AND PEEI-t-'M 
87-80 X>e THEN G0SU8 150>' 
1100 IF PEEKt 50499 >=W HMD PEEK<5«4 
99-86 K>0 THEN GOSUB 156W 
1116 GOTO 1060 
1146 REM — horlove V 
1156 DI 

1166 SOUND 1. 10,5, lo 
1178 Pl-Pltl IF Pl=5 THEN Pl=0 
1180 IF Ploi THEN LUCHIE #1.2-'. V 
RINT #l.CHR»*.240i PRINI HI LO'HIt 
#5 3,6'PRINT #5, CHRS-. ^40 . PR1N1 # 
5 

1190 PRINT #5 
1200 PRINT #1 

1210 LOCATE #6.2.1 PAPER #6.0 PRIM 
T#6. CHR#< 241 '.CHRS<242 ■ LOCHIt tio 
-2.2'PHPER #6,6 PRINT#6. " " 
1220 LOCRTE #6.14.1 PAPER #6.6 PRl 
NT«6. CHR*' 241 -,LHRS- 242; LULrtlt # 
6-14,2 PAPER #6.6 PRINT#6," " 
1230 IF P1»0 THEN LuCATE #6,2,2 P 
APER #6,6 PRINT#6, CHRSv 241 .,CHR»' 
242JL0CATE #6.2,1 PHPER #b.0 PRIN 
T#6, - " 

1240 IF Pl=4 THEN LOCATE #6,14.2 
PAPER #6,6'PRINT#6. CHR»( 241 >, CHR* 
'.242>L0CRTE #6.14.1 PAPER »6.n PR 
INT#6." " 
1250 El 
1266 RETURN 
1270 REM — horlove 1 
1260 DI 

1290 SOUND 1,15,5.10 
1306 P2-P2+1 IF P2*5 THEN P2=0 
1310 IF P2=l THEN LOCATE #2,2.6 P 
RINT #2,CHR»i,240) PRINT #2 LOCATE 
•4, 3,6'PRINT #4, CHR«(240;PRINr#4 
1320 PRINT#2 
1330 PRINT#4 

1340 LOCATE #6.5,1 PAPER #6.0 PRIN 
T#6. CHR»<241 ^,CHR#<242) LOCATE #6 
,5,2 PAPER#6,6 PR1NTB6," " 
1356 LOCRTE #6.11.1 PAPER #6,6 PRI 
NT#6, CHR»' 241 v. CHR*-. 242 j LOCATE # 
6.11,2 PAPER #6-6 PRINT#6," " 
1360 IF P2=0 THEN LOCATE #6,5,^; P 
APER #6,6 PRINT#6. lHR»'. 241 ,, i.HRS' 
242.' LOCRTE #6.5.1 PAPER #6,0 PRI 
NT #6." " 

1379 IF P2=4 THEN LOCATE #6,11,2 
PAPER #6,6 PRINT#6, CHRsi 241 • ; CHR« 
'242J LOCATE #b, 11.1 PAPER #6,0 PR 
INT#6." " 
1360 El 
1390 RETURN 

1460 REM — hor- Lose £ — 
[410 ['1 



1420 SOUND 1.20.7- 16 
1430 P3-P3+1 IF P3-5 THEN Pj-0 
1448 IF P3-1 THEN LOCRTE #3.2-6 K 
RINT #3.CHR»X240J PRINT #3 
1450 PRINT#3 

1466 LOCATE #6.6.1 PRPER #6.0 PRIN 
T#6, CHR«<.24U,CHR«C242> LOCATE #6 
,6,2 PAPER #6,6'PRIHT#6," " 
1476 IF P3=4 THEN LOCATE #6.8,,; P 
APER #6,6 PRINT#6, CHR«< 241 >, uHR*'. 
242> LOCATE #6,8,1 PRPER #6,0'PRIN 
T#6," " 
I486 EI 
1490 RETURN 
1500 REM 

1518 REM donald F-lon** 
1530 DI 
1540 PEN #7-1 

1556 IF chance=3 THEN LOCATE 4,1 P 
RINT" " LOCATE 4,2'PRINT" " 
1560 IF chance=2 THEN LUCAIE ^.2 v 
RINT" "LOCATE 3,1 PRINT" " 
1570 IF chance=l THEN LOCATE 1,2 P 
RINT" " LOCATE 1 . 1 PRINI" " 
1580 te=TIME 
1590 El 

1660 chance*ch*nce-l 
1618 ENT, 1, 136, 16.4 SOUND 1,284,13 
0,15,0,1 

1620 PRINT#?'PRINT#? PRINI#7," P L 
U F !" 
1636 FOR Pl=l TO 5 

1640 LOCATE #7.1,1 PRINT47. LHR* 11 
>, PRINT#7 

1650 FOR PT=1 TO 86 NEXT PI 
1660 NEXT Pi 

1670 FOR M=l TO 460 NEXT M 
1686 CLS #7 

1696 IF chance >W THEN GOTO 177o 
1700 PEN #7- 14 PRINT#7, " GRME OVER 

1716 PEN #7,13 PRINT#7 PRINT*?." 

un« autre Fartie 

O^N" 
1720 IF score>record THEN POKE 150 
01, score/256 POKE 15006. score-l ■ IN 
K score. 256 ) >*256 ' 
1730 DI' BORDER 9.3 INK 0,0,1 FOR 

n-1 TO 60 SOUND 1 ,26*n*4, 4 . 15 NEX 
T n BORDER 6 INK 6, 1 
1746 IF INKEY'34>*0 THEN RUN 
1756 IF INKEY<46j=8 IHEN PUKE 15VJ0 
0,0 POKE 15661.6 END 
1760 GOTO 1740 
1776 P0*6 GOSUB 1796 
1786 RETURN 
1796 REM 

1800 REM dessin de DONHLD 
1610 REM 
1620 DI 

1830 IF si»0 THEN CALL drfPo; 
1846 IF si-1 THEN CALL d*' Po • 
1856 IF Po*12 AND ta=l AND si=6 IH 
EN Bi-l'EHV 1.106.2.2 ENI 1,160.-1 
.1 SOUND 1.260-96,15-1.1 SC*< T1ME- 
teJ/ieeO'as"! te=TIME 
1860 scMNTi SCJ IF SOI2 IHEN =c= 
12 

1870 IF as=l THEN sc=12-sc score= 
score+sc LOCATE 12,1 PEN 4 PRINT s 
core, " " as=0 

I860 IF Po=8 AND si=l THEN si^8 FO 
R e(=4 TO 8 LOCATE 3, e» PRINT" 

NEXT et CALL 28641 ENV 1.188.1. J 
ENT 1.100.-2,2 SOUND 1 . 106.56. 1 . 1 . 
1 

1896 £1 
1906 RETURN 
1910 REM 

1926 REM RIRI aPParait 
1938 REM 
1946 DI 

1956 IF ta=l THEN GOTO 1*96 
1968 CALL 38612 
1978 ta=l 
1986 RETURN 

1996 LOCATE 19.6 PRINT" " 
2066 LOCATE 19.5 PRINT" " 
2610 LOCRTE 19.7 PRINT" " 
2020 LOCATE 198 PRINT" " 
2036 ta=0 
2646 EI 
2050 RETURN 
2860 MEMORY 1400'_i 

207& PRINT PEN 1 PRlNT"suite chjr9 
ement k?" 

2080 LOAD"'don?Id 2", £8006 
2990 RETURN 



50 J'. 1 "^UOOW a«v I ;*/30 #d'. 1 v*4948 

8 

66 a',2>=^0731 atv^j-?3« ad\2y=5ui2 

8 

70 at 3 >-251 1 7 tf\ 3 >«?36 ad-. 3 .-=4*39 

4 

86 a^4>«21462 a*-.4y=?30 ad'4,.=S0l4 



90 «< 5 j=2584b at i 5 >»?30 adv 5 ;=4990 

6 

160 a'.6v»22193 *t\6^»730 adi.6 -»5Ul 

52 

110 U.7 J-26579 at ■ 7 —?J0 adt ? J-499 

IB 

120 *( 8 >«22924 * 1 ■. a t'7j» ad(. a >-561 

64 

136 at 9 ;*2?3ie at 1 9 J-?36 ad<. 9 >=49a 

36 

146 «■. 16>-23655at<10>-?36 adt 16-= 

58176 

150 at 1 1 J-24386 at-- 11 >»?3u ad-. 11 >' 

49776 

168 aU2;«28041 attl2>-960 adtl2>* 

49466 

1 70 *< 1 3 >-29062 at '. 1 3 >"9b6 a* 1 3 -» 

180 at 14:1*29963 af. 14^-966 adU4>- 

49614 

196 *C15^«30924 af. 15>*966 adU5^- 

56660 

200 at 16'*31B85 at<- 16>*960-*d< 16:>= 

49026 

216 **. 17.»*3284b at 1 1?>«966 adv 17 /* 

56072 

220 at 18 >-3386? aft 16 J»96oadt 1b>« 

49636 

230 a( 19>"34?6B af ly y-960 -#d( 19 >= 

56064 

240 ai26<*J5729 at< -;u <*s66 ad- 28 >• 

256 a(21>«36690'af'. < :n=9b6 *dt21^- 



LISTING 2 



260 *C22*»376S1 *f ■. -;2 ^960a<*.2«i >« 

270 a< 23 ^38612 af 23 ;»450 Jd«. 23 >= 

49543 

280 at 24 >»39663 *f ( 24 )-185 1 ad( 24 >« 

49153 

296 a(25>-J924s «f<.£S^>16S >d'^5,= 

49 1 56 

380 a', 26>"39435anib>=185 ad' 2b t<* 

49163 

310 FOR h*l TO 26 

320 IF h^l2 THEN RESTORE 

330 IF Fwll AND h',23 THEN RENlORt 

660 

340 IF h=23 THEN REi I ORE loOO 

350 IF h/c3 THEN RE^TURE 1066 

i60 PRINT "charOement ffiachin* ".h 

. " sur 26" 

^70 st*a- h > 

J80 stt=atth > 

390 adresse=ad' h < 

400 or-'J = u 

410 FOR n-=st TO st*Stt-5 jTEH 5 

420 READ x 

430 READ U 

446 READ P9 

456 READ Pd 

466 IF x*9 AND s=9 HMD P9=9 MND Pd 

»9 THEN ord ^orti*&H GOTO 426 

470 x-x-1 

4B6 k-C<i.-1 J*264a>+ord 

490 Position=*+»-*adresse 

560 i'-i4;I!iik-,.J, 

516 Pd»«BIN«tPd,4J 

526 P*-" 00000000" 

530 MI0»tP*.7-I >=MID*KPv«, 1. 

540 MIDItPt^.l^MID^PS*^. 

556 MID«tP»-5. 1 y=MID*'.P**,3. 

566 MIMCP«, 1- 1 ;=MID*XP9*.4, I 

570 niDVCPS.B, 1 ;-MID9J(Pd*. 1. 

580 MID*tP*-4. 1 ;=MID«tPd*.2. 

590 MID*« P*-6. 1 J-t1lD»(Pd». 1. 1 > 

600 MID*' P*,2, 1 J«=MID*tPd*.4. 1 I 

616 P*-"lx"+P* 

626 Pave-VflUP*; 

638 ad2*INTt Position^ 256 » 

640 ad3"ed2*<r t :.b 

650 adl»Position-adJ 

660 POKE n.62 

676 POKE n+l,Pav* 

666 POKE r.+2,56 

696 POKE n*3.adl 

700 POKE n+4.ad2 

710 POKE n+5.<;01 

726 NEXT n 

736 NEXT h 

740 DATA 5-1- 4, 0,4, 2, 0-4. 5. 2, 4. 4. 4 

,3,4,4-5,3.4.4,6.3.4,0,4,4.4.4 5 -I 

.4.4 

750 DATA 6. 4. 4, «. 4. 5, 4, U.5.5-4.1o 

.6- 5, 4. 0.4. 6. 4, 16, 5. 6, 4, 16. 6, 6, 4,0 

,4,7,4,4,5. 7-9-4,6. 7, 4, 0,4, 6.*- 9-5 

,8,9,9-6,8.9-0,9.9,9.9 

766 DATA 4.1,9.9.5.1.9.9,6,1,9.0,4 

.2,9,9,5,2-9.9-6,2,9-0.4,3.0,3,5.3 

,9,9,5-4,4,6 

??Q DRTR 3,5,0.1.5-5.4,0,0.5-0.1,-: 

.6,0,5.4,6- 1 • t ,5,6.4, 1 .^. ■ 

Suite page 3 



G DOS^ 




*= gg> 



Amis de la basse resolution, n'hesitez pas a gravir 
lechelle sociale- Grace a ce programme, vos bavarda- 
ges seront admis et toleres chez madame DE LA 
HAUTE resolution. 

Dan DERY 



Mode d'emploi : 

Tapez et sauvegardez respectivemenl les listings 1 . 2, 3 et 4 par : 

Usting 1 : SAVE G DOS 

Listing 2 : BSAVE DAN DERY,A$ 300,L$ 15 

Listing 3 : BSAVE HGCR.AS 6000.L$ 75 

Listing 4 : BSAVE HGRC.A$ 6100.LS 300 



Le DOS graphique permet, grace a son generaleur de caracteres 
integre. de recopier une page texte dans Line page graphique haute 
resolution (en direct, &+RETURN) II est egalement possible d'ope- 
rer en mode indirect, 
exemple : 
10 

. Programme ecnvant en mode texte 



:REM recopie d'ecran. 
Ainsi, vous retrouverez lintegralite de voire page texte, y compris 
les minuscules, les caracteres accentues, les pommes ouvertes el 
fermees. De plus, vous aurez la possibility d'appeler toutes les ins- 
tructions graphiques haute resolution : HPLOT, HCOLOR. DRAW, 
XDRAW. ROT, SCALE. POL. etc... 




edito 



255 



236) • 25. 
676 / 254! 
POKE 232,7476 - 



POKE 114, INT <7 



INT <7474 / 



M 



PRINT D»;-BL0A 



CHR$ (4! 
D DAN DERY' 
PRINT W|*BLQAD HBCR* : PRIN - 

Ml'BLOAD HGRC 
POKE 1010,0 1 POKE 1011 ,112 
HOME 

HCOLOR" 3 



4 HGR2 
3 REN 

10 At > 



DOS GRAPHIQUE 
DE DAN DERY* : 

11 B» - *LE 10/04/83 

VERSION 1.0 *: 

12 C* - "I V0ULE2-V0U5 DES INSTR 

UCT1CNS f 
20 PRINT A*i PRINT : PRINT B* 
25 PRINT i PRINT t PRINT i PRINT 

i PRINT : PRINT M 

99 REM - 

100 POKE 24439,234: POKE 24440, 
234i CALL 24374 

103 HPLOT 0,80 TO 210,80 

110 UTAfl 10: KTAB 34: GET Ett PRINT 

E»: CALL 24376 
113 IF E* • "0* THEN GOTO 120 

116 IF E* - "N" THEN GOTO 118 

117 GOTO 110 

118 POKE 1013,76: POKE 1014,768 

- INT i(748 / 254) • 234: POKE 
1013, INT <748 / 234) 

119 POKE 1010,0: POKE 1011,0: TEXT 
: HOME : NEU 

120 HOME : HGR2 : HCOLOR- 3: 
130 A» - "CE DOS PEUT UOUS PERME 

TTRE DE TRANSFDR- NER UNE PA 
GE TEXTE EN PAGE GRAPHIQUE.. 
. ':B» - 'POUR CELA TAPE! '4 
' POUR LE TRANSFERT ,'iM ■ 
•BGNNl tWHtV 

140 PRINT : PRINT : PRINT A* : PRINT 
: PRiNT B*: PRINT : PRINT : PRINT 
: PRINT ; PRINT C* 

150 CALL 24574 

160 GET A* 

165 POKE 1013,761 POKE 1014,768 

- INT <768 / 256) • 234: POKE 
1015, INT <748 / 256) 

167 POKE 1010,0: POKE 10)1,0: 
170 HOME : HGR2 : HCOLOR- 3 
180 VTAB 2i PRINT ' PROGRAMME D 

E DEMONSTRATION 0U G.DOS ... 

■: PRINT : PRINT • I I 1 ft I 

tftiiiiiittftits 
i* 

190 CALL 24576 

200 HPLOT 0,0 TO 279,0 TO 279,1 
89 TO 0,189 TO 0,0 i HPLOT 0, 
50 TO 279,30 TO 279,32 TO 0, 
32 

205 ADRF - 7674 * 13 

210 FOR I - 7676 TO ADRF 

220 READ A 

230 POKE I, A 

240 NEXT I 

230 POKE 113,7474 

y AMSTRAD 

Suite de la page 2 



256) • 236 i POKE 233, INT (7 

676 / 236) 
260 GOTO 280 
270 DATA l,0,4,0,18 l 63 1 36,3« l 4 

3,43,34,54,63,00 
280 FOR X - I TO 5 
285 FOR 1 - 1 TO 23 
290 ROT- I 
300 SCALE- I 
310 DRAU 1 AT 140,120 
320 NEXT I 

330 FOR I - 23 TO 1 STEP - 1 
340 ROT- I 
350 SCALE- I 
340 XDRAU 1 AT 140,120 
370 NEXT I 
380 N£XT X 

390 FOR I - 1 TO 100: NEXT 1 
400 HOME : TEXT : HOME : NEU 



LISTING 2 



0300- 
0302- 
0305- 
0306- 
03OA- 
030D- 
0310- 
0313- 



A9 A0 
8D 50 CO 
8D 57 CO 
A9 00 

8D 55 CO 
8D 52 CO 
20 00 40 
40 



LDA 
STA 
STA 
LDA 
STA 
STA 
JSR 
RTS 



LISTING 3 



6000- 
4002- 

6003- 
6005- 
6008- 
600A- 
400C- 
400E- 
4010- 
4012- 
6014- 
6016- 
60 18- 
60 1A- 
601C- 
601E- 
6021- 
6023- 
6025- 
6027- 
602A- 
60 2C- 
602E- 
6030- 
6033- 
6035- 
6037- 
6039- 



A6 22 
BA 

85 1C 
20 24 FC 
A0 00 
A5 28 
65 2A 
A3 29 
29 03 
05 E6 
85 28 
Bl 28 
C9 20 
B0 05 
49 CO 
CE 52 40 
C9 40 
B0 05 
69 80 
CE 52 60 
C9 80 
B0 03 
49 40 
CE 32 60 
C9 A0 



f«A0 

•C050 

♦C057 

£•00 

•C033 

*C052 

•6000 



IIC 
•FC24 
e*oo 
•2S 

*2A 

• 29 
£♦0 3 

• E6 
♦2B 

(♦28) ,Y 
£♦20 
*6021 
(♦CO 
*60S2 
£♦60 
•60 2A 
£tao 
♦6052 

£♦80 

♦4033 
£♦40 

♦ 4052 
E«A0 

♦ 6068 
£«7F 



603A- 
603B- 
603C- 
603D- 
603E- 
603F- 
4041- 
4043- 
4044- 
4047- 
4049- 
404C- 
404E- 
4051- 
4053- 
4054- 
4055- 
4057- 
4058- 
603A- 
603C- 
603E- 
603F- 
6061- 
6063- 
6065- 
4048- 
4049- 
604B- 
606D- 
404F- 
6070- 
4072- 

4074- 



29 03 
09 60 
8D 30 40 
48 

29 F8 
8D 4F 60 
A2 00 
BD 00 61 
49 00 



83 2B 

n 

E0 08 
90 E8 
A9 00 
80 32 40 

ce 



E4 23 
90 8E 



AM 
DM 

STA 
PLA 

AM) 

STA 



EOR 
NOP 

NOP 
STA 

CLC 

LOA 
ADC 



£♦03 

£♦40 
♦6050 

(♦F6 
♦404F 
(♦00 
•4100 ,X 
£♦00 



*2B 
£♦0-1 
»2B 

i*0B 

•404E 
£♦00 
♦4032 



♦23 
.♦4002 



4190- 



798 DATA 4,7,5,3,5,7.5,5,6.7,5,8..; 

,8,5, 5, 3. 8. S. 3. 4, 8.3,1,5.6.1.1,6. 8 

, 3,5,7,8, 5, 5, 9,8, 5, 8- 9. 9. 9, 9 

798 DATA 2, 1,5, 3, 3, 1.5. 5. 4,1. 5,3, 5 

,1,5,3,6,1,5,3,7,1,3,5.8.1,3,9 

808 DATA 1, 2, 0,3, 2, 2, 3, 5. 3, 2. 5. 5, 4 

,2,5.3.5,2,3,3,6,2,3,5.7.2,5,5,8.2 

,5,5,1,3,8,5,2,3,5.9.4,3,5.3.5,3.5 

,3,6.3.5.8,8.3.3,5 

618 DATA 1,4.6.1.2.4.1,8.4.4,5,5,5 

,4,5,5.6.4,5,6,8,4. 1. 1,1,5,8, 1.2,5 

,1,8,4,5,3,3,5,3,5.3.6,5,5,8,8.5,1 

.1 

828 DATA 2,6.4,8.4,6.5.1.5.6.5.1.6 

,6, 5, 8, 6, 6, 4, 8.2, 7, 4, 6, 3,/, 8. 5, 4, 7 

,5.1.3.7,3,l,6.?.5,3,B-7.4,u,1.8,v 

. 4, 2,8,4, 4, 3. 6, 8, 5, 4, 8. 5, 5. 5, «, 5, 5 

,6,8,5,3,7,8,0,4,8,6.4.4,9.9,9.? 

838 DATA 1 , 1 ,0,4,2, 1 ,4.4. j. 1 ,8,4.4 

.1.4,4,5, 1,4,4,6, 1,4,4.7, 1,8,4.9, 1 

,4.4 

840 L>*TH 1,2,0,4,2,2,4,0.3,2.0,4.4 

,2, 4, 4, 5. 2. 4, 4, 6, 2. 4, 4. 6. 2, 4, 4. 3. 3 

,9,9,4,3,4.4,5,3.4.4,6.3,4.9,. -3. 3 

,0 

858 DATA 3,4,9.0.4.4.4.4.5,4,4,4,6 

,4.4.8.7.4,9,8,3.5.9.9.4.3.0.4,5,5 

,4,4,7.5.9,8 

868 DATA 2, 6, 9. 3, 3.6.9.9.4,6.9. 4,5 



,6.4,4,6.6.0.9,7.6.3.9,8,6,9.8,1 
. 8, 9, 2. 7, 9, 9, 3. 7, 9, 3. 6, 7,0. 9, 7. 7. 9 
,9.8.7,9.9,1,9,8,9.2,8.9,*. 3.8.9.0 
.7,8.9,9,9,8.9.9 

979 REM 

666 DATA 6.1,6.3,7,1,1,3,6,1,3.1,9 
,1,3,8,6,2,3,3,7.2.1.3,9,2.3. 1,9,2 
,3,3,6,3,3,3,7,3.1.3.8.3,3,1.9,3,3 
.3, 6. 4, 1,1, 7, 4, 1,1, 8. 4,1,1.9.4. 1,1 
,6,5,1,1,7,5,1.1,8,3,1. 1.9.5. 1,1.6 
,6,1,1,7,6,1, 1,8,6,1, 1,9.6,1.1,0.^ 
,3,3,7,7,1,3,8,7,3,1,9,7,3,3,6,8.3 
.3.7,6,1,3 

698 DATA 8,8,3,1-9,8,3,3,9,9,9,3 

980 DATA 5,1,4,6,6,1,0,3,7,1,1,3.8 
,1,3, 1,9.1.3,8,4,2,0.4.5,2.4,4,6.2 
,0.8,7,2,4,0,8,2,8,4,4,3,4,4.5,3,4 
.4,6,3,4.8,7,3,4.4,6,3.4,4.4,4.4.4 
,5,4,4,4,6,4,4,6,7,4,0,4 

910 DATA 4. 5, 4, 6, 3, 5. 4, 6, 6. 5. 4, u, 7 

.5,8,4.4,6,4,6,5,6,4,6,6,6,4,8,7.6 

,0,4, 4, 7, 9. 4, 5, 7, 9, 4, 6,7,9.8,/, 7, 6 

.1,8.7,1,0,4,8.9,9.3,8.9,9,6,8,9.8 

.7,8.8.1.6.8,1 .6,9.9.9.9 

928 DATA 4,1.9.9,5.1,9.9,6,1,9.0.7 

.1,8,3.8,1.5,8.1,2,4,0,2,2,4,4,4,2 

,9,9,5.2,9.9,6,2,9,0,7,2.0,5.8,2,5 

.0,1,3.4.4,2,3,4,0,4,3,0,9,5,3,9,9 

.7.3.0,3.8,3,5,0 

938 DATA 1,4,0,4,5.4,4.8,7,4.0.5,9 

,4,5-8, 1,5,0,4,3.5,0, 1,5,5.4,0,6.5 

■0.1,7,5,0.5.8,5,5.8,1,6,1,1,3.6.0 

.5.4,6, 1.1,5,6,4,1.6,6,1,3.7,6,8,5 

,9,6,3,8,1,7,1,1,4,7,5.5.5.7,3.5,6 

,7,5,8,7,7.9,5.8,7,5,8,1,8.8,3,2,6 

,5,0-4,8,5,1,5,8,1.1.6.8.5.8,7.9.5 



4100- 00 00 00 00 00 00 00 00 

410B- 00 0C 0C 0C 00 OC 0C 00 

6)10- SO 36 1Z 00 DO DO DO CU 

6118- 00 16 37 14 16 37 17 00 

4120- 00 08 3E 81 IE 20 IF 08 

4128- 00 27 17 08 04 3A 39 00 

6130- 06 14 IE 23 23 23 IE 00 

413B- 00 0C 04 00 00 00 00 00 

4)40- 00 30 08 0C 0C 08 30 00 

4148- 00 03 04 0C 0C 04 03 00 

4130- 00 2A )C 36 IC 2A 00 00 

6138- 00 08 08 3E 08 08 00 00 

6160- 00 00 00 00 00 06 06 02 

6148- 00 00 00 IE 00 00 00 00 

4170- 00 00 00 00 00 04 04 00 

6178- 00 20 10 0B 04 02 01 00 

6180- 00 3E B3 2B 27 23 IE 00 

618B- 00 18 IE IB IB 18 18 00 

00 IF 30 98 0C 07 3F 00 

00 3F 18 IE 30 B0 IF 00 

00 0C 04 IB IF IB IB 00 

00 3F 03 IF 30 30 9F 00 

6IB0- 00 IC 06 IF 23 23 IE 00 

4188- 80 3F 18 0C 04 04 06 00 

61C0- 00 IE A3 IE 23 23 IE 00 

61C8- 00 IE A3 23 3E 18 0D 00 

61D0- 00 00 04 04 00 06 06 00 

61D8- 00 00 06 04 00 04 06 02 

00 24 12 09 12 24 00 00 

c_5l Uf,e 



.5.9.8,5,8 

940 DATA 9,9,9,9 

950 DATA 1,1,0,5.2,1,5.5,3,1,5.3.4 

.1.5.3.5.1,5,3,6,1.5.5,7, 1,5,3,2.2 

-5.5.3,2.3,3.4,2,3,3,5,2,3,3,6,2,5 

,5.7,2,5.5,2,3,0.5,3,3,5.5,4,3,5.3 

.3.3.5,3,6,3,3,5,4,4.5.5,5.4.5,5,6 

.4,5,8.4,5,5,5.3,5.3.5.6.5,5,8,4,6 

.5, 1,5.6.5,1,6,6,5,8.3,7.8,3,4,7.5 

,1.5,7,3,1 

368 DATA 6,7,5,5.3,8,8,5-4,9.3,3.5 

.6.5.5.6-8.3,5.9,9,9,9 

970 DATA 3.1,0.4,4,1,4,4,3.1.4,4.6 

.1,4.4,3,2,9-4,4,2,4,4.5.2,4,4,6,2 

.4,4.3.3.9.9.4,3.4.4,5.3,4,4,0.34 

.9. 7. 3. 9. 8. 3, 4, 9, 9.4, 4. 4, 4. 5. 4. 4. 4 

, 6. 4, 4, 0. 7, 4. 9. 0, 3, 5. 9. 8. 4. V M, 4, 5 

,5.4,4,7.5,9,0 

980 DATA 2. 6, 9. 9, 3. 6, 9, 3, 4- 6. y. 4. 5 

,6,4,4,6,6,0,9.7.6,9,3,8,6,3,8, 1,7 

,0,9,2.7,9,9,3,7,9,9,6,7,8,9,7.7.* 

,9.8,7,9,9, 1,6, 0,9, 2,8. 9, 9. 3, 8, 9.0 

,7,8.9.9,6.8.3.3,3.9,9.3 

990 REM 

1088 DATA 6.2.0.3.6.3,0.3.6.4,0.4. 
7, 4, 3, 3, 6. 5, 4, 4, 7. 5, 3. 3, «, 5, 3, W. 5- 
6.9,4,6,6.4,4,7.6,4,3.9.6.3-0.5,/, 
0.4,6.7.4,4,7,7.4,1,0,7, 1,0,5.8.6. 
6.6.6.4,4,7,8,4.1.8.8.1,8.9,9-9,9 
1018 DATA 5. 1.0. 6. 61-4, 4. 7. 1,4, I. 

B, 1. 1.0.5.2.0.4.6,2,4,4-7.^,4. l.B, 

2,1,0.5.3,9,4,6,3,4,9,7,3.4.3,8.3. 

3, 6,3. 4, 9. 9. 6. 4, 9, 9, 7. 4. 4, 3.5.5. ?■ 

9, 6, 5, 9, 4, 7, 3- 4. 3, 6, 6- 6. 4,, ',6, 3. 3, 

6,7.0.4.6,9-3,4.9,9.9,9 

1826 DATA 2,1.4,4,5.1,8.3.6,1.3.3. 



61E8- 00 00 IE 00 9E 00 00 00 

41F0- 00 09 12 24 12 09 00 00 

41F8- 00 IE A2 10 08 00 08 00 

4200- 04 0C 3E 23 23 33 2E 00 

4208- 00 IE 23 23 3F 23 23 00 

6210- 00 IF 23 IF 23 23 IF 00 

6218- 00 3C 02 03 03 02 3C 00 

4220- 00 OF 13 23 23 13 OF 00 

4228- 00 3F 03 IF 03 03 3F 00 

6230- 00 3F 03 IF 03 03 03 00 

6238- 00 3C 02 33 33 22 IC 00 

6240- 00 23 23 3F 23 23 23 00 

6248- 00 IE 0C 0C 0C 0C IE 00 

6230- 00 3C 18 18 18 19 0E 00 

6238- 00 13 0B 07 0B 13 23 00 

6260- 00 03 03 03 03 03 3F 00 

6268- 00 IF 2B 2B 26 28 2B 00 

6270- 00 IF 23 23 23 23 23 00 

6278- 00 IE 23 23 23 23 IE 00 

6280- 00 IF 23 IF 03 03 03 00 

628B- 00 IE 23 23 23 23 12 3C 

6290- 00 IF 23 IF 23 23 23 00 

6298- 00 IE 07 IE 38 38 IF 00 

42A0- 00 3F 0C 0C 0C 0C 0C 00 

42A8- 00 23 23 23 23 23 3E 00 

42B0- 00 23 23 23 24 IC IB 00 

42BB- 00 2B 2B 2B 26 IC 18 00 

62C0- 00 23 16 0C 0C 16 23 00 

62C8- 00 23 23 IE 0C 0C IE 00 

62D0- 00 3F 18 0C 04 03 3F 00 

42D8- 10 08 34 11 21 59 26 00 

62E0- 00 00 3E 03 03 03 3E 18 

62E8- 10 0B 36 IF 3F 7F 36 00 

62F0- 08 14 3E 23 23 33 2E 00 

62F8- 7F 00 00 00 00 00 00 00 

4300- 0C 0C 08 00 00 00 00 00 

6308- 00 00 3E 23 23 33 2E 00 

6310- 00 03 IB 27 23 23 IF 00 

6318- 00 00 3E 03 03 03 3E 00 

4320- 00 20 2E 33 23 23 3E 00 

4328- 00 00 3E 23 IF 03 3E 00 

4330- 00 IE 03 IF 03 03 03 00 

4338- 00 00 IE 23 33 2E 20 IF 

6340- 00 03 IB 27 23 23 23 00 

434B- 00 0C 00 0C 0C 0C 0C 00 

4350- 00 18 00 18 18 18 IB 0E 

4358- 00 03 23 13 OF 13 23 00 

4340- 00 0C 0C 0C 0C 0C 0C 00 

4348- 00 00 IF 2B 2B 2B 2B 00 

4370- 00 00 IF 23 23 23 23 00 

6378- 00 00 IE 23 23 23 IE 00 

6380- 00 00 IF 23 23 27 IB 03 

6388- 00 00 3E 23 23 33 2E 20 

6390- 00 00 IE 03 03 03 03 00 

6398- 00 00 3E 03 IE 30 IF 00 

63A0- 00 03 03 IF 03 03 IE 00 

63A8- 00 00 23 23 23 23 IE 00 

43B0- 00 00 23 23 23 14 0C 00 

63B8- 00 00 2B 2B 2B 28 34 00 

43C0- 00 00 23 16 0C 16 23 00 

43C8- 00 00 33 23 23 14 0C 07 

4300- 00 00 3F 18 0C 06 3F 00 

43DB- 08 0C 3E 23 IF 03 3E 00 

43E0- 04 0C 23 23 23 23 IE 00 

43EB- 84 8C BE A3 9F 83 BE 80 

06 14 3E 23 IF 03 3E 00 

14 00 3E 23 IF 03 3E 00 

FF • 





2,2,4,4,3,2,0, 3.4.2,3.3.5.2.3. J. 6 

2.3.3.2.3.8.4.3.3.4,3.4.3.3.3.5. i 

3,3,6.3,3.3-2.4,0,4,3,4,4,3,4,4.3 

3,5,4,3,3,6,4,3,3,3,5,0.3,5,5,3,3 

6,5.3,3.5.6.3.3.6.6. j. -3-7.6,3.6,5 

7,3.3.6.7.3,4,4,8.8,3,5,8-3,3,6,8 

4,4,7.8.4,8 

1838 DATA 9,9,9,9 

1840 DATA 5,1,4,4,6.1.4.4.7,1,4.9 

5, 2, 4, 4. 6. 2. 4, 4, 7, 2, 4, b, 5. 3. 0.4. 6 

3,4,4.7.3.4,0,5,4,8,4.6.4.4.9,6.5 

4, 9. 5, 6, 9, 8. 6, 6, 0,9, 5. 7. 9. 9.6.7. -■ 

9,3,8,9,9,6,8.9,3,7.8.9,8.9,9,9.9 

1838 REM 

1868 DATA 5.1,4,0,4,2,8.4,5.2,4,4 
4,3,4,4,3,3,4,4,6,3,4,6.4,4.4.4-5 
4,4,4 

1870 DATA 6,4,4.8,4.5.4.16.5.5.4. 
6,6.5.4,6.4,6.4,16.3.6.4,16.6,6.4 
0,4,7,4,4,5,7,9,4.6,7.4,0,4,9,9,9 
5,6,9,9,6,9,9.8,9,9.9,9 
1888 DATA 4,1,9,9,5,1.9.9.6.1.9.6 
4.2,9.9,5,2,9,9,6.2,9,0,4,3.0,9.5 
3.9.9,5.4,4,8.3.5.8.1,5.5,4.0,6,5 
8,1,3,6.8,3,4,6,1,1.5,6,4, 1-6.6.1 
8,9,9.9,9 
1090 CLS 

1180 PRINT"vou^ d«vfz ch»r«r a 
Prtstnt ccttt Mtnoir* d#s (rout 
ln»). Qui vitnt d'«tr« t-ffectu** 
* 1« suit* du Provrimmm b*»ic 
du j«u. *ur la K7 " 
1118 PRINT PRINT PRINT"taf*i"PkIN 
T' PEN SPRINT" NEU et SAVfc "iCHk* 
•;34j,"DONHLO 2' , ,CHR*i34), , ,B.28800 



..C'est vraiment le printemps. Les 
exnstructeurs xnt attendu Te 

""Sicxb de Mai pxur nxus mxntrer 
leurs demieres merveilles. 
Apple, Atari, Amstrad. Thxmsxn 
et aujxurd'hul Sxny xnt deja leve 
le vxile. ii reste les autres qui ne 
vxnt pas manquer de nxus en 
mettre plein la vue pendant 
cette manitestatixn. A I'heure xu 
j'ecris ces lignes, le salxn nest 
pas encxre xuvert mais j'ai deja 
entendu parler dun xrdinateur 
utilisant l intelligence artificielle 
et qui devrait revenir a mxins de 
5000 trancs. Les nxuveaux Ixgi- 
ciels ne vxnt pas manquer nxn 
plus ainsi que txus les petits ac- 
cessxires style imprimante silen- 
cieuse quatre cxuleurs. disque 
dur 3,5 pxuees. mxniteur cxuleur 
a deux sxus xu midem a 3 
francs 50. Je pars d'ailleurs im- 
mediatement pxur txut vxus 
racxnter la semaine prxchaine. 
Jen prxfiterai pxur essayer de 
trxuver une nxuvelle imprimante 
qui ne me remplace pas les o 
par des x 



P-P«F, 6 **■*-, 
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Monsieur Micro et Madame 
Application ont la joie et I'hon- 
neur de vous faire pail de la 
naissance de leur dernier reje- 
ton et deja respectable colle- 
gue. 

Micro Into s'adresse essentiel- 
lement aux consommateurs 
des produits Micro Application 
qui y trouveront des trues et 
astuces. Les trois machines di- 
rectement concernees par 
cette publication (cinq numeros 
par an) sont ou seront le 




go* A f^'W eoMP Bt£ C£U£<fi) 

Commodore 64, TAmstrad et 
l Alan 520 ST. Dans le premier 
numero, vous trouverez, en 
plus des conseils pour ces de- 
ferents materiels. I'interview 
dun pirate qui ne se fait pas 
villipender par I'interviewer (ce 
qui denote une volonte d'hon- 
netete bien rare de nos jours). 
Ca vous coutera 15 francs si 
ca vous interesse et sinon 
vous pourrez toujours essayer 
de le voler et acheter un 
HHHebdo et demi avec I'eco- 
nomie. 



LE MANOIR 

DU LAC CHEXIMOU 



Un graphisme exceptionnel au service d'une aventure 
passionnante, avec son eternel cortege de gouffres, 
oubliettes, serpents et autres raffinements subttls... 

Marie Therese MICHOUX 



Mode demploi : 

Classtque el dans le programme 



5 * "ii'i jinn 

6 '* LE MANOIR t 

7 ' * DU LAC « 
e ■ * CHEXIMOU * 

9 ' ***(****•**(***** 

10 ■ 

15 UIPE:C0L0R0.6.3,2iF0VE , .FFU>, ! : POf E 1 8596. 250 1 POKE 
185B9. 10 

20 GOSUB55001 GOSUBSBOOt G03UBS700: GOSUB6000 

BO PLOT 10, 58, 220,58. T:5CREENI 2. 56. 216.51 tCLSi OUTPUT 
"LE MANOIR DU LAC CHEX IltOU" . 45. 230 , 2 

90 GOT01500 

99 ' FONO DECOR 

100 PLOT20,210,200,50.2iPLQT2C. 110,200,52,3 

112 FORI -0T060STEP2iPL0T20+ I, 210-2* 1/3, 2, 151-4*1/3, 
HNEXT:PL0T80, 170,80,70.1 

116 FORI=0T060STEP2: PLOT 160*1. 170+2*1/3,2,71+4*1/3, 
liNEXT 

11B LINEBO, 100,80. 1 70, O: L1NE160, 1 70, 0: L INE160. 100, O 
:LINEBO, 100,0 

122 FORI =>0T07iLINE20, 21 0-21. 431 1. BO. 170-101 1,0s LINE 
160, 170- 101 1. 0iLINE22O, 210-21. 43* I, OiNEXT 

126 F0RJ=0T07STEP2iLINE35.200-19*J,35, 183-19* J, Ol LI 
NE53, 1B7-15«J,55. 172-15*J,OlLINE70, 176- 12* J , 70. 165-1 
2*J.O 
130 LINE205.200-19IJ.205. 1B3-19*J, 0:LINE185, 187-15* 
J, 1B5, 172-15tJ.OiLINE170, 176- 12* J, 170, 165- 12* J, 

132 LINE 100, 170- 10* J, 100. 160-10<J , Ot L 1 NE 1 20 . 170-10* 
J, 120, 16O-lO«J.OiLINE140, 170- 10* J, 140, 160-10<J,0i NEX 
T 

13B F0RJ-0T03STEP2tLINE23. 1B7-21*J,23. 167-21 < J, Ot LI 
NE45. 177-17IJ.45, 16 1 - 1 7*J , Oi LINE63, 168-13*J,63. 153-1 
3*J,0iLINE75, 162-11* J. 75, 132-1 1*J,0 

140 LINE217, 1B7-2HJ.217, 167-21 * J, Oi LINE 195, 1 77-1 7* 
J. 195, 161 -17*J,0i LINE 17B. 168- 13* J. 17B. 155-13*J,0iLIN 
E165, 162-1 I *J, 165, 152-1 1*J,0 

142 LINE90, 160- 10* J, 90, 150-10* J . Oi L INE1 1 0, I 60- 10* J, 
110, lS0-10*J,0t LINE 130, 160-10IJ. 130, 150- 10* J, OtLINEl 
50, 160-10IJ, 150, 150-10*J.0iNEXT 

146 FOR I -OT02iLINE70+50* I. 210, 100+20*1,1 70, Oi NEXTi L 
INE33, 200.205, 200, 0iLINE55, 1B7.1B5, 1B7,0:LINE70, 176. 
170,176.0tRETURN 

159 ■ PORTE 

160 F0RI-0T020STEPZ:PL0T33+I. 136, 2, 6B-2I I/3,2i NEXT 

163 F0RI-0TO3:LINE3O+I.67*I.30+l, 140-1 ,0iLINE55-l . 1 
.38- 1 , Oi L I NESS- 1 , 84- 1 , : NEXT 

164 F0RI=0T03iLINE3B+5*I, 136, 38*5* I . 72+10*1 /3,Oi LIN 
E34, 125-1.36. 1 2B-2* I /3, 0: L INE34 , 88- I , 56, 98-2* I /3, Oi N 
EXTiPL0T35, 105. 3. 7 , Oi PL0T36, 104. 1.3, 2: RETURN 

169 • PORTE D 

170 FORI»OT020STEP2iPLOT207-I. 136, 2,68-2*1/3.2: NEXT 

173 F0RI-0T03iLINE210-I.67+I,210-I, 140-1 , Ot LINE IBS* 
I, 1 38- I, OiLINElBS* 1,84-1,01 NEXT 

174 F0RI-0T03iLINE202-5*I, 1 36. 202-5* I , 72+ 10* 1 /3, Oi L 
INE20B. 125-1, 1B7, 1 28-2* I /3. Oi L INE20B. 88- I , 187,98-2*1 
.'3,0t NEXT 1PL0T20B, 105, 3, 7.0iPL0T204, 104, 1,3, 2: RETURN 

179 ' PORTE F 

180 PLOT 110. 135, 20, 35, 2: PLOT 107, 138. 3. 3B, 0: PLOT 107. 
13B, 26. 3.0i PLOT 130. 138, 3, 38,0 

1B4 FORI =0T03iLINEl 15+5*1, 136. 1 15+5*1 , 100. Oi NEXT: PL 
0T110, 130. 20,3.0i PLOT 110. 1 10, 20, 3,0: PLOT U 1 , 120,3,6, 
0: PLOT 11 2, 119,1,3, 2: RETURN 

189 • TABLE 

190 FORI =OTOI5STEP.5i PLOT 145+2* 1/3. 115-2*1/3.15+2*1 
/3,2.0iNEXT 

193 PL0T147.il 3. 2, 1 5, Oi PLOT 156, 105,3, 1 B, 0: PL0T173, I 
05,3, IB, Oi PLOT 148. 104. 13. 2.0s PLOT 158, 94, 16,3,0 

195 FORI=.OT03tLINE150 + 2*I/3.I03. 166* I . 92, Ot NEXT t TB= 
20: RETURN 

199 ' TABLE F 

200 FORI-OTO61PLOTBO-I, 115-1/2,20+1, l.OiNEXT 

203 PL0T75. 111,2. 16.0iPL0T95. 111.2, 1 6. Oi PLOTS!, Ill, 
1.12,0:PL0T9B. 115,1, 16, 0>PL0T7B, 1 03, 20, 2. 0: L I NE76, 1 
l.BO, 10S.0:PL0T76, 112.20.2,0tTB«16iRETURN 

209 ■ CHAISE 

210 PL0T82, 130. I .31 ,0iPL0T93, 130, 1,31 ,OiPL0T78. 108. 
1, 15,O:PL0T91. 108, 1. 15,0 

213 FDRI=0T065TEP.5:PL0TB2-I. 1 1 0- I /2, 1 2* I . 1 . Oi NEXT 

214 PL0T7B.98. 14, 2,0t PLQTB2, 103. 12. 2. Oi FORI-OTOTi LI 
NE87*I/2, 103,86-I,9B.0iNEXTiPL0TB2, 126, 1 2, 2, Oi PLOTS'* 
, 126. 12, 1B,0iCAi=16iRETURN 

219 * CHAISE D 

220 FOPI=OTOB:PLOT160*I, 125-1/3. 1.1 6+ 1/3.01 NEXT 

223 PLOT 139, I 30. 2.30.01 PLOT 167. 129, 2. 37, Oi PLOT 130, 1 
10.2.11.0: PLOT 157, 104.2. 1 2. Oi PLOT 137. 105. 12, 1,0 

224 FaRI=0TOBiPL0T150+I*.B. 110-2*1/3.10+1/3, 1.0: NEX 

225 LINE150, 105, 15B,96.0iLINE160, 103. 167 . 97, Ol L INE1 
55, 100. 165,99,0iCA=20:RETURN 

229 ' ECUSSON 

230 FORI=OT010:PLOT120-I, 162-1.1+2*1. 1 ,2: PLOT 1 1 1*1 / 
2. 152-1, 20-1. 1.2:NEXT 



N 

239 * ECUSSON D 

240 F0RI-0T04:FL0T190+I, 160+2*1. I . 2*5* I . 2l NEXT: PLOT 
195, 165. 10. 17,2 

244 F0RI=0T06lFL0T19B-I, 172-1.2*2.5*1. 1 . 2i NE XT : L 1NE 
196, 148.202, 148. 2i LINE 198, I 47. 2: FOP I -OT07.I PL0T205* I , 
168-1, 1. 20-6*1, 2iNEXT 

246 LINE 194. 163,203, 132,01 LINE 194. 160, 1 96. 164 . 0: L IN 
E 195. 150.203. 166, 0:L INE200, 165.204, 1 63. ••: EC = 10- RETUR 
N 

249 ■ ECUSSON G 

250 FORI«OT04iPLOT50-I. 160*2*1. 1 , 2+5* I , 2l NEXT : PLOT" 
6,163,10, 17.2 

253 F0RI-0T06iPL0T41-I, 172-1.2+2*1, 1 . 2: NEXTsL INE46. 




148.36. 149,2tLINE46, 147, 2: F0RI=0T07t FL0T34*I , 164+1. 1 
, 2*6*1, 2iNEXT 

253 LINE47, 165.39, 1 50. Oi L INE44, 166.47, 1 61 , Oi L I NE37 . 
167, 45, 149,01 LI NE36, 163,39, 167, Oi EC=6l RETURN 

259 ■ COFFRE 

260 FORI-OTOSiPLDTBO-I, 110-1/2.20*1/2, 1 , 2: PLOT 100- 1 
, 110- 1/2, I. I0*I,2:NEXT:PL0T74, 106.22. 17,2 

263 LINE74, 106. 74, 93, Ol LINE96, 93, Oi L INE96, 106,0:LIN 
E74, IO6.O1 LINEBO, 1 IO.OiL INE 100. I 1 0. O: L I NE 100. 100, Oi L 
INE96,93.0lLINE100. 110,96, 106,0 

264 PL0T7B, 106, 3 . 7 , Ol PL0T90. 106, 3 , 7, 0: PLOT 79, 104, I, 
3,2iPL0T91, 104, 1, 3. 2i CO- 16: RETURN 

269 • COFFRE G 

270 FORI =0TQ16i PLOT 149. 110-1/2, 12+ 1/1.2, 1.2i PLOT 149 
+2*1/3, 102-1/2, 25-2*1/3,2,21 NEXT 

274 LINE148. 110, 14B, 100,0: LINE160, 92, Ol LINE173, 92,0 
i LINE 173, 104,0: LINE1 60, 1 IO.OiL INE14B, 110.0: LINE160, 1 
04, O: LINE 173, 104.0: LINE1 60. 104, 160, 92, Ot PLOT 131 , 107, 
1,4,0: PLOT 157, 104. 1 , 4, Ot C0=20t RETURN 

279 ' TABLEAU 

280 FORI«0T014tPLDT6O*I. 160-1/1.5, 1 ,20-2* I /3.2i NEXT 

283 F0RI=0T01iLINE60+I, 160-2*1,75-1, 154-1 ,0:L INE75- 
I, 140+I.0:LINE60+I, 140*1 ,0: LINE60+I , 160-1 , Oi NEXT: LIN 
E60. 159.75, 153.0i OUTPUT "4* ",63, 15Q.0tPE=l 1 1 RETURN 

289 ' TABLEAU F 

290 PL0T135, 131,20. 1 1 ,2i PLOT 134. 152. 22. 2. Oi PLOT 134. 
\52.2, 1T..0I PLOT 154, 132,2, 1 3. Oi PLOT 1 34 , 1 40 , 22, 2, Oi OUT 
PUT"**", 140. 14B.0iFE-19iRETURN 

299 ' TENTURE 

300 F0RI=lT02iLINE162, 165-1. 185, 1 7B- I , O: NEXT: FOR I =0 
T015SPL0TI65+I, 163+2*1/3, 1 , 40+1 ,2iNEXT 

303 FORI-0TO2iPL0T171+l. 165+2*1/3, 1 , 42+1 , 3: NEXT: FOR 
I-0T02iLINE163. 142-2*1/3, ISO. 14)7-1, SiNEXT 

304 OUTPUT""". 175. 160. Oi OUTPUT 175. 135.01 OUTPUT" 

"■•,165. 156,0t OUTPUT"-", 165. 1 33, Oi TE= 15 1 RETURN 

309 ' TENTURE F 

310 PL0T82, 160,22,2,0iPLDTB3, 15B, 20. 38. 2iPL0T91 . 15B 
, 3,38. 3iPL0TB3, 140, 20, 3,3= FORI^OTOIi OUTPUT" " . 84 . 1 
52-201 1,0: NEXT: TE=16t RETURN 

319 * LUSTRE 

320 LINE120.205, 120, 170. 2:F0RI=0T02i OUTPUT"o" , 118,2 
a?-ietI,6 1 QUTPUT"l u .Hi.216-16»I.6,NtSf 

324 PLOT 103, ieO,3O,3,0iFORI = 0TO4iPL0T106+6*I. 182,3 
.2,0iPL0Tl07+6*I. 190. 1. 15, 0: NEXT i LU=Bt RETURN 

329 ■ TRAPPE 

330 FORI=0TO3iPL0TlI0+I,6B+2*I, 1, 1+2*1, ti PLOT 128+1, 
75-2*1, 1,B-2*1, l:NEXTiPL0T114,76, 14,9,1 

333 LINE114.76, 1 28. 76. Oi L INE 1 33, 67, Ot L I NE 109, 67, Oi L 
INE114,76,0t0UTPUT"o". I 20. 77, Oi FO, TR- 1 3i RETURN 

339 ' CHEMINEE 

340 PLOT 100, 123, 40.33.2i PLOT 112. 122. 16,22.0 

343 FORI»OT04iPLOT107+I ,122, 1,27-1 ,0: PLOT l 28+ I , 122, 
1. 22 + 1, Oi PLOT 100+ 1, 125*1.40-2*1, 1,'iNEXT 

344 FORI=0TO9iPL0T106*I, 127*2.2*1, 1, 1 +2. 2* I . 2: PL0T1 
25+1, 148-2.2*1. 1.22-2.2*I,2tNEXTiPL0T115.14B, 10.22,2 

345 LINE107, 130, 100, 125, 0: LINE 140. 125, 0: L INE 1 7 3, 130 
. OiL INE 100. 122. 140, 1 22, Ot L INE 1 00, 95. 140,93,0 

346 LINE100. 125. 100. 92. 0: L INE 1 40. 92. Oi L I NE 1 40 . 1 25 . O 
i LINE) 12. 122, 112, 100, 2: L INE 128, 122. 128. 100,2 

347 LINE 117. 14B. 106. 127,0i LINE 13". 127.0: LINE 125. 148 
.OiLINEl 17. 148.0 

348 FOR I =0T02t OUTPUT '•£", 101, 120-B* I , Oi OUTPUT "£" . 134 
. 120-8* I. 0: NEXT t OUTPUT" 5'". 115, 13S. 0:CH=18: RETURN 

359 * CHEMINEE D 

360 PLOT 175. 128,35,47.2.-F0RI=OT02O:FL0T176*I,81.1. 1 
*. 8*1. 2i NEXT: PL0T197.B1, 13. 18 . 2t PLOT 181 . 125.8.42.0 

363 LINE175. 128, 1 75, 8 1 , Oi LINE197, 64, Oi L INE1 97, 128,0 
1LINE210, 128. Ot L INE 1 75, S6, 197, 71. Ot LINE I 75, 128, 197, 1 
28. OiL INE 175, 123, 197. 124, 0.-LINE192, 124, 192.75,0 

364 F0RI=0TO2iPLOT190+I. 125, I . 43+ I .0: NEXT 

365 F0RI=0T017:PL0T1B2*I , 129 + 2*1, 1, 1 +2* I , 2 1 NEXT : PLO 
T2O0, 164,6,36,2 

366 LINE 182, 129.200, 164. 0iLINE205, 165, Ol LINE 196, 12B 



«I,0:OUTPUT"f ", 17 



,0 

367 F0RI=lTO3i0UTPUT"C". 192 
6. 132-12*1, OiNEXT 

368 PLDT191, 1 40, 3. 8. 0: L INE 1 90. 140, 195, 139. Ol L I NE I 89 
. 172. 195, 172.0 

375 CH=10iRETURN 
779 • CHEMINEE G 

380 PL0T30, i2B,33.47,2:F0RI=0T020tPL0T63-I.Bl, 1,1*. 
8*I.2iNEXTtPL0T30.Bl. 13, 16.2:PL0T31. 123.8.42.0 

384 LINE30, 128,43. 128. O: LINE47, 65. O: L INE64.81 , Ol LIN 
E64, 12B.0iLlNE43, 128,0 

385 LINE43, 125.64, 126, Ot L INE43. 71 , 64. 86. 0: L I NE47, 12 
S. 47, 73,0 

386 F0Rl=OTO2tPL0T47*l, 125. 1 , 45- I , 0: NEXT 

387 FORI=OTOI7:PLOT40+I. 163-2*1. 1 . 35-2* I , 2t NEXT t PLO 
T34, 164.6,36.2 

389 LINE58. 128,40, 164, Ot LINE35. 1 65, Ot L INE46. 128.0: F 
ORI=OT02tOUTPUT"f ,44, 120-1511 ,0i OUTPUT"£" .59, 120-12 
*I, OiNEXT 

390 PL0T48, 140,3,B.0tLINE46, 139,52, 140.0l LINE45, 132 
,52, 132,0iCH=6tRETURN 

400 PLDT20.210.205, 152, Oi TB, CA, EC, CO.PE, TE.LU.CH. TR 
1. TR2.TR7,TR4=0t RETURN 

4 1 GOSUB 1 00 1 GOSUB 1 60 i GOSUB 1 70 1 GOSUB 1 80 1 RETURN 

420 GOSUB 100: GOSUB 160: GOSUB 170: RETURN 

430 G0SUB100iGaSUB170:G0SUB180i RETURN 

440 GOSUBlOOi GOSUB 160 i GOSUBlBOi RETURN 

450 G0SUB100iG0SUB170iRETURN 

460 G0SUB100tG0SUBl60iRETURN 

470 GOSUBlOOlGOSUBlBOlRETURN 

480 P0fEt.5FE7.0:P01 E*5FE4 . '.FBl OUTFUTCHR* < 192) ,110.9 
3,2lP0KE*.5FE3, 196t P0kE*:.5FE4, 249: RETURN 

50O PRINT"QU0I PARDON": RETURN 

510 F'RINT-QUOI DONE -":RETURN 

320 PRINT"JE NE VOIS PAS CELA"tRETuRN 

530 PRINT"IMPOSSIBLE"tRETURN 



540 PRINT'-C'EST FAIT":RETURN 

530 PRINT"RIEN A SIGNALER": RETURN 

360 PRINT"JE L'AI DEJA":RETURN 

570 PRINT"F10LE VIDE"iRETURN 

399 ' PRESENCE OBJ 

600 F0RI-0T09: IFOB ( I ) =PC«100+LTHENGOT0650 

620 NEXTtG0T055O 

650 F0RQ-1TO2O1 T0NE70. IOOi NEXTi PRINT" IL Y A " ; 0« ( I > 
t I»9i NEXTi RETURN 

700 IFRE- 1 THENGOTO6OO1 ELSE IFOU" 1 ANDC 1 ■ 1 THENPR INT "DU 
VERT" t RETURN: ELSEG0T0330 

710 IF0U*1DRDE=1THENG0T0530:ELSEG0T0550 

800 0N0G0T0801 , B02. B03, 804,805, 806.807 

801 P3"llUl=li RETURN 

802 PI=ltUl-liRETURN 
B03 P2=liU2=l:RETURN 
B04 P4=IiU2=ltRETURN 
B05 Pl=*ltU3*liRETURN 

806 P2=1:U4^1: RETURN 

807 P4=l:U4=liRETURN 

850 IFOB(W) =1 THENPR INTO* < W :■ :PAUSE2 

851 W=W+lt IFW="10THENW=0:GOT03000;ELSEGOT0850 

B80 F0RIMT0200: TONE 10* I. 30t NEXTi TONE500,99t RETURN 
900 OUTPUT"*", X,Y,3iFl=l:PAUSE2: PRINT "OUBLIETTE" 
902 IFPC=19THEND.Yl»l:Xl=5iG0SUB910:G0SUB1600i IFCD = 
^■THENGOTO 1 000 1 ELSERETURN 

907 IFPC-6THENYl=3i X 1 =2: P4= 1 i G0SUB91O1 G0SUB16001 IFC 
D=OTHENGOTO lOOOl ELSERETURN 

904 IFPC=22THENYl-0iXl-0iX=120: Y=66iD=2iGDSUB9I0iG0 
SUB1600:Fl.Tl»0:DH=liL-3;0UTPUTCHR»<Z+DH> . X, Y.OtRETU 
RN 

906 IFPC=32ANDLF=lANDCF=0THENPAUSE2iFRINT"UN SOUTER 
RAIN" :G0TO920 

908 IFCD=OTHENGOT01000iELSE RETURN 

910 PAUSE It PR I NT "PASSAGE SOUTERRAIN" i PAUS£2i RETURN 

920 IFCF=10RPL=0THENRETURN 

921 fi*-INSTR*(l> 

922 M=ASCCR«>iN=N+M 

924 IFN-645THENPRINT"CAVERN£iV0U5 TROUVEZ UNE CLEF 
EN OR QUE V0U5 PRENEZ" l PAUSE2i FRINT-JOUS RETOURNEZ 
EN ARR I ERE " i CF = 1 : N=0 : OB < 7 ) = 1 : G0T0900 

926 IFN>1000THENN=0iPRINT"V0US TOURNEZ EN ROND"iGOT 

930 G0T0920 

950 IFCF=lANDCR=!ANDDl=lTHENCLStG0T0960 

952 PRINT"VOUS N'AVEZ PAS TOUS LES TRESORS RETOU 
RNEZ-Y"!Xl=3iYl=2iD=l!G0T01500 

960 FORI»1T015:TONE300-10*I,60-2«I:NEXT:OUTPUT"B R 
A V 0",92.92.0i0UTPUT"V0US AVEZ REUSSI " . 70. 75. 2i CLS: 
PRINTiPRINT"MERCl DE VOTRE VIStTE"tEND 

1000 FOR2«lTD30t T0NE20, 80 : T0NE500, 20 i NEXT 

1001 CLS2:PEN0:PRINT"HELAS POUR VOUS L"AVENTURE SE 
TERMINE ICl"tPAUSE3iCLS2:PRINT"V0US RESTEZ PRIS 

ONNIER DU MANOIR MAIS VOUS VOUS ETES BIEN DEFENDU 
LINE AUTRE FDIS PEUT -ETRE . . . " : PEN2i END 

1490 'DEBUT JEU 

1300 D=l : Xl=3i Yl»2t A=5000 

1510 GOSUBA*lO00*D+100*Yl*lO*Xl 

1520 PRINTiPRINT"VOUS VDICI DANS LE MANOIR DU LAC 

CHEXIMOU"iPAUSEB:CLSiPRINT:PRINT"LA PORTE DE SORTIE 

NE S'OUVRIRA QUES1 VOUS ETES EN POSSESSION DES 3 
TRESORS DUI Y SONT CACHES" : PAUSE 10 

1530 CLStPRINTiPRINT"POUR LES TROUVER VOUS DEVREZ D 
ECOU-VRIR DES OBJETS QUI VOUS AIDERONT A VAINCRE LE 
S OBSTACLES ET A TROU- VER CES TRESORS" tPAUSElO: CLSi 
PRINT:PRINTiPRINT"BON COURAGE ET PRUDENCE..." 

1560 GOT02000 

1599 'CHANG PIECE 

1600 PEN2iO=0 

1650 GDSUBA+1000*D+100*Y1+10*X1 

1700 O"5000iCI,C2,Tl=0iRETURN 

1999 ' DEP PIECE 

2000 L-3t X=120l Y=66lDH=liH=0iZ=191 
2050 OUTPUTCHR» < Z +DH ) , X , Y , 1 GOSUB3000 

2053 OUTPUT"*", X,Y*2,3i IFTft : r0ANDL-8THENG0SUB33O 

2060 ONDHGOTD2100, 2200. 2300, 2400 

2100 Y-Y*8tL-L+5t X»X-4*H 

21 20 IFY >90ANDX- 1 20THEN60SUB2950 

2123 IFY>90THENGDSUB2900l Y = V-Bi L = L-5t X-X*4*H 

2140 G0T02050 

2200 ON INT ( (L-l > /5* 1 )G0SUB2500. 2600, 2700. 2800 

2250 G0T02050 

2300 Y-Y-8iL-L-5tX-X+4*H 

2320 IFY<64ANDX=120THENG0SUB2950 

2325 IFYv66THENG0SUB2900iY=Y*8lL«L*5:X=X-4*H 

2350 GOT02050 

2400 ON I NT < (L-l )/5+t 1G0SUB25S0. 2650, 2750. 2B50 

2450 G0T02050 

2300 X-X+28:L»L+1 :H=H+1 

2510 IFX; 184THENGa5UB2900: X= X-28t L=L- 1 : H"H- 1 

2520 RETURN 

2550 X=X-2B:L=L-1:H=h-1 

2560 IFX 56THENG0SUB2900:X*X*28:L*L*l:H=H*l 

2570 RETURN 

2600 X=X*24:L=L*ltH=H+li IFX 16BANDY=74THENG0SUB2950 



2610 
2620 
2630 
2660 
2670 
2700 
2710 
2720 
2750 
2760 
2770 
MOO 



IFX-168THENG0SUB2900:X = X-24:L=L-ltHi=H-l 

RETURN 

X"X-24iL"L-l(H=H-li IFX 72ANDY = 7 4THENG0SUB29Si 

IFX- 72THENG0SUB2900iX.X+24iL»L+l:H=H+l 

RETURN 

X-X+20:L«L*1:H-H+1 

IFX 160THENGOSUB2900:X-X-20:L-L-liH-H-l 

RETURN 



-1: 



-1 



IFX 80THENGOSUB2900 1 X-X*20:L-L*IiH=H 

RETURN 

X-X+16lL=L*l:H=H+l 



JEU D'EAU 



Vous jouiez avec le feu ? Ce jeu humrde variera quel- 
que peu vos loisirs. 

Guy HAUCHEGORNE 

Mode d'emploi 

Les regies sont incloses 



100 (ALL HI EAR 

I 10 CALL SCREEN!? 

120 PRINT " 



140 PRINT 
150 PRINT 

160 PRINT 




TI99 BASIC SIMPLE 



l'% AU <?" 'A Ifi Fir* !l 



70 PRINT ■' 



CR1T FAR SUV HAUCHECORNE 

200 CALL SCREEN* 31 

riO CALL COLOR (1 

220 CALL CHAROt 

730 GOSUB 510 

240 CALL CDL0R(10.2. II 

230 RESTORE 630 

260 NE = 4 

270 GOSUB SSO 

zao GOTO BOO 

290 ON K3 GOTO 420.300,900 

300 RESTORE 670 

7.10 NE-4 

320 GOSUB 350 

330 CALL HCHAR (1,27.32) 

34G CALL HCHAR 1 1.27.63) 

350 CALL KEV<0.K3.S3) 

360 IF (S3-0)*(K3<49)*(K3>37KO THEN 330 

370 CALL HCHARd.27.K3) 

3B0 FDR I-l TO 3O0 

39i_' NEXT I 

400 K1-K3-4S 

410 GOTO 910 

420 RESTDRE 690 

430 NE = 12 

440 GOSUB 330 

450 GOSUB 510 

460 RESTDRE 740 



NE=10 

GOSUB 550 

GOSUB 510 

GOTO 250 

CALL KEY(0.K2,S2> 

IF 52-0 THEN 510 

CALL CLEAR 

RETURN 

CALL CLEAR 

FOR I-l ID NE 



570 READ 1 



620 NEXT T 

630 NEXT I 

640 RETURN 

630 DATA 1.11... SOHMAIRE . . . 3. 2. -1 -REGL 

E DU JEU.5.2.-2-CHDIX DU NIVEAU 

660 DATA 7.2.-3-PARTIE NIVEAU DEBUTANT (9 

670 DATA 1.9.CHOIX DU NIVEAU. 4,5. ( 1 ) RAP 

IDE A !9> LENT.B.2.CELA AG1T SUR LA FRE 

QUE MCE 

6BO DATA 10.2.DES CHARIOTS D'EAU 

690 DATA l.ll.REQLE DU JEU. 3,2. LE BUT DU 

JEU EST D'EVITER LE 
700 DATA 5.2.DEB0RDEMENT DES CUVEB EN TR 
AN5- .7.2.VASANT LE LIGUIDE AU NIVEAU IN- 
710 DATA 9.2.FERIEUR. . 11.2. IL FAUT POUR 
VIDER UNE CUVE SE. 13,2. TROUVER A COTE. 
720 DATA 15.2.V0US OEVEZ EHPRUNTER LES A 
SCEN-. 17.2,SEURS MAIS PRENDRE GARDE A LA 
730 DATA 19, 2. CHUTE ET A L ' ECRASEMENT AU 
PLA-. 21, 2, FOND. ,23, 2, VOUS AVEZ DEUX REM 
PL AC ANTS. 

740 DATA 1.2.CORRESP0NDANCE DES TOUCHES; 
,3,2.X POUR SAUTER SUR L ' ASCENSEUR. 5, 2. 
ESFACE POUR VIDER 
730 DATA 7,2, > DEPLACEMENT A DROITE.9.2, 

DEPLACEMENT A GAUCHE 
760 DATA 13.2, VOUS POUVEZ SAUTER DE L * AS 
CEN-, 17.2.SEUR A L"EXTREMITE DU PALIER. 
770 DATA 19,2.ET.JNVERSEHENT yERS LA GAU 
CHE. 21. 2. OU LA DROITE GRACE A LA TOUCHE 
7B0 DATA 23.2.X 
790 CALL SCREEN (3) 
BOO CALL HCHAR (1 , 27. 32) 
BIO CALL HCHARt 1.27,63) 
B20 CALL KEY<0.K3,S3> 

B30 IF tK3<49)*tK3>5l>*(S3=OKO THEN BOO 
840 CALL HCHARU. 27. K3> 
830 K3-K3-48 
860 FOR V-l TO SOO 
870 NEXT V 
880 GOTO 290 
890 GOTO 910 
900 Kl-9 
910 CALL CLEAR 
920 CALL SCREEN! 11) 
930 REM •••**»•»••••*•••••• 

940 REM »DCF COULEURS • 

9SO REM »••«•••••*•»•••••« 

960 RESTORE 1010 
970 FOR Il-l TO B 
9B0 READ A1.B1.C1 
'90 CALL C0L0RIA1.B1.C1 ) 

OOO NEXT I 1 

010 DATA 1,2,11,2,7,11,3.14,11,4.14,11. 
i, 6,1 1,6, 5, 11,7. 14, 11, 8. 2. 6 

020 REM ••»••••••••••»••••• 

030 REM »DEF CARACTERES • 

040 REM ••••*•••»•••••♦*»•• 

030 RESTORE 1 100 

060 FOR 12-1 TO 37 

070 READ A2, A2B 

OBO CALL CHAR(A2,A2»> 

090 NEXT 12 

lOO DATA 37. "O101O1O10101O10I ".33, "BOeo 
BOB080BOBOBO-,34, "01 ".33. "8 ".36. "FF" 
IIIO DATA 40. "FFFF-.77. "070F 1F3O604OOQO0 
" , 78. "ECFCFC2C2O20200O" 



1120 DATA 58. , '!F0F0FIF3F7FFFFF' , .59, 

FFFFFFFFFFFF" 

1130 DATA 60, "FBFOFOFBFCFEFFFF".Al. 

FFB1FFFFFFFF' .62. ' FFFF7E3C I 818 1 B3C" 

FFFF " 

1140 DATA 64, ■03071F7EFEFE5C0B-.63, 

1E3E7E7FF762 ".66. "C0E0FB7E7F7F3AI0" 

70307B7C7EFEEF46" 

1150 DATA 69,"FFFFFFFFFFFFFFFF".70, 

7F7FE3CIBIOl , '.71.X0FCFEFEC783aiBO" 

1160 DATA 68. 1, FFFF7F7F5A080000",72. 

3C3CIBFFBDBD",73, * , BDBD3C3C24242466 M 

ZE42407E0242427E" 

1 I 70 DATA 74. "7E1 8FF8D8DBD2466" . 73. 

000030EAC4FE" 

1180 DATA 81. ,, 7E4r40404O40427E",82. 

42424242427E".B3. "7642427C504B4442" 

7E4040704040407E" 

1190 DATA B5."FFFFFFFFFFFFFFFF , ',86, 

20FFFFF8FBFB",87, "FEFE04FFFF1F IF IF'' 

1200 DATA 88. 'B1B1818 18 1B181PF" . 41 , 

663C3C66C3FF",76. " 00000 33A3A3F7F8F" 

1210 REM ••***•***«*•••*» 

1220 REM • DECOR • 

1230 REM •*«•■••••.<••■» 

1240 PRINT TABI24)iM 

1230 RESTORE 1300 

1260 FOR I3»l TO 140 

1270 READ A3.B3.C3 

1280 CALL HCHAR(A3,B3.C3) 

1290 NEXT 13 

1300 DATA 1.2. BO. 1.3.81> 1.4.B2. 1 ,5, 

6,84 

1310 DATA 3.15.86,3,16,87.4,13.61.4 



1320 DATA 5.15.41.3,16,41,5.17,41,5,18,4 
1,3, 19,41,5,20.41,5,21.41 

1330 DATA 9,10,40,9,11,40,9,12,40,9,13,4 
0,9, 18,40,9, 19,40,9,20,40,9,21,40 
1340 DATA 13.10,40,13,11,40,13,12.40,13. 
* "-, 18.40, 13, 19,40, 13,20,40, 13,21,4 



FFFT 
'FFFf 



■ I33F 

■oosc 

80." 
OOOO 

TE*a 

84, ■ 

7F7F 
FFC3 



13,40 



J 3 



1360 DATA 19,7,58,19,8,39,19,9,60,20,7 

1,20,8,61,20,9,61 

1370 DATA 21, 7, 61, 21. B, 61, 21 ,9.61,22,7 

1,22,8,61,22,9,61 

1390 DATA 23, 7, 61, 23, 8,61, 23, 9, 61*24, 7 

2,24,8.63,24,9,62 

1390 DATA 19,22, 3B, 19,23,59,19,24,60.2 

22,61,20,23,61,20,24,61 

1400 DATA 20,24,61,21,22,61,21,23,61,2 

24,61,22,22,61,22,23,61,22.24,61 

1410 DATA 23,22,61,23,23,41,23,24,61,2 



22, 62. 24, 23, 63, 24, 24, 62 

1420 DATA 6,7,37,7,7,37,8,7,37,9,7,34,' 

B. 36, 9, 9, 33, 8, 9, 33, 7, 9, 33,6,9, 33 

1430 DATA 10,7,37,11,7,37,12,7,37,13,7 

4, 13,8,36, 13,9,35, 12,9,33, 11,9,33, 10,9 



1460 DATA 10,22,37,11,22,37,12,22,37, 
22,34, 13,23,36, 13.24,33, 12,24,33, 11,2' 
3. 10,24,33 



1 500 

1510 

1520 


REM »BDUCLE ET GOSUB • 


CALL HCHAR i 1 3 


14,36.2) 


15 TO 


CALL HCHAR! 13 


16.36,2) 


1540 


RANDOMIZE 




1 550 


A2*=INTC2»RND) 




1 560 


Y21-13 




L570 


Y22-13 




■ 580 


RANDOMIZE 




I -,90 


RR-INT(RND»3> 




1 600 


X6-13*3*A2 




1610 


Y6=7*4»RR 




1620 


X4-0 




1 6 7.0 


X3-0 




1640 


GOTO 1660 




1650 


GOSUB 2700 




1 660 


GOSUB 23B0 




1670 


GOSUB 1890 




] 681 ' 


BOSU8 2140 




1690 


GOSUB 2380 




i 700 


GOTO 1650 




1710 


IF <Y21«=2I )*IV22«7)'-0 THEN 1790 


1 '20 


IF (Y21-7)*(Y 


J2-21X0 THEN 1740 


1 7 70 


IF A2-1 THEN 


790 


1740 


CALL HCHARIvr 


. 14. 32. 2) 


1750 


CALL HCHAR 1Y2 


:. 16.32. 2) 


1760 






1770 






I 780 


GOTO IB30 




1790 


CALL HCHAR <V2 


.14.32.2) 


IBOO 


CALL HCHAR (Y2 


2. 16.32.2) 


1810 


Y21-Y21-2 




1B20 


Y22=Y22+2 




i e -o 


CALL HCHARIV2 


1.14,36.21 


(040 


CALL HCHAR <V2 


2, It. 76. 21 


1B50 


RETURN 




l B ■' ■ ' 


REM »CHARIOT 


GAUCHE • 


isac 


REM •*•••••• 




i B90 


IF X4 THEh 


1960 


1900 


RANDOMIZE 




t9in 


A4"lNT(RND«tK: 




i 9 zo 


IF A4 THEN 


2000 


l 93( 


CALL HCHARI4. 


14.88' 


1940 


X4-14 




i 93) 


GOTO 2000 




1960 


IF X4-10 THEf 


2010 


1970 


X4-X4-1 




[98i 


CALL HCHAR (4. 


I4.BB1 


i 99i 


CALL HCHAR 14. 


X4.1.32) 


2000 


RETURN 





/C* ^fNT LB &&LB 

iti iTot ,n M> eflcoft. 

~G^c4 30V?fi*& 0B$ 

^\ ALUlfAB TXB5 ' 



Mot QJOV ACCuS€ 




2010 CALL HCHARI4 



. 64 I 



O THEN 24 



20 CALL HCHAR1' 
2030 CALL HCHAR<3.I 
2O40 CALL t 

2050 CALL HCHAR(5.8.321 
2060 A10-A10+1 
2070 IF AI0*4 THEN 4140 
20B0 CALL VCHARI9-A10.8.69.A10) 
2090 X4"0 
2100 GOTO 2000 
2110 REM •■•■*•■••*•■•••*• 
2120 REM "CHARIOT DROIT • 
2130 REM •■•••••■•••••••■* 

2140 IF X5< >0 THEN 22IO 

2130 RANDOMIZE 

2160 A5-lNT(RND»<Kl+4) ) 

2170 IF A3>0 THEN 2230 

2180 CALL HCHAR (4. 17. BB) 

2190 X5-I7 

2200 GOTO 2230 

2210 IF XS-21 THEN 2260 

2220 XS=X3*1 

2230 CALL HCHAR 14, X5, 88) 

2240 CALL HCHARI4, X3-1.32I 

2250 RETURN 

2260 CALL HCHAR 14. 22. 66) 

2270 CALL HCHAR!4,21,32) 

22B0 CALL HCHAR (5. 23, 67) 

2290 CALL HCHAR14.22.32) 

2300 CALL HCHAR! 3. 23.32) 

2310 ElO-ElO+1 

2320 IF El 0-4 THEN 4360 

2330 CALL VCHAR <9-E 1 0. 23,69. E10) 

2340 X5=0 

2350 GOTO 2250 

2360 REM •••»•••••*•***•*•« 

2370 REM oPERSONNAGE • 

2380 REM **••••«•■••••«•*•• 

2390 IF <Y6-7>*(Y6-11 

00 ELSE 2520 

2400 CALL KEY(0,K6.5) 

2410 IF K6-S2 THEN 3310 

2420 IF (K6-46>« 1X6-21)* fkfi-44) • ( X6-IUJ > 

THEN 2320 

2430 IF K6-46 THEN 2600 
2440 IF K6-44 THEN 2330 
2450 IF 1*6=13) • IK6=BB>*!X6=13>- IK6-8Q)- 

1 THEN 4050 

2460 IF (X6»18)"(K6=B8)»(X6-16)»<K6-B8)- 
1 THEN 3960 
2470 M«=STR« (SCORE) 
2480 FOR 1=1 TO L£N<M») 

.IV" CALL HUHAK ! 1 . / + l,H»LIStU»lM», 1, 1 I I I 
2300 NEXT I 
2510 GOTO 2640 
2520 RETURN 

my CALL S0UNDI-3O.300.2) 
2540 CALL VCHAR (Y6.X6. 32.21 
2330 X6-X6-1 
2360 IF <X6-17>»!Y6< >Y22-2I ♦ ( X6- 13) • 1 Y6-. 

11) ^O THEN 3320 
2570 CALL VCHAR1Y6.X6.72) 
25B0 CALL VCHAR (Y6*l . X6. 73) 
2590 GOTO 2520 
2600 CALL*S0UND<-50.440.2) 
2610 CALL VCHARIY6.X6.32.2l 
2620 X6-X6+I 

2630 IF (X6=14)»(Y60Y2I-2)*(X6=16)»(Y6< 
>1 I ) >0 THEN 3280 
2640 CALL VCHARIY6.X6.72) 
2630 CALL VCHAR(V6*1.X6.73) 
2660 GOTO 2320 
2670 REM »•«»•«»••••••••••• 

26B0 REM "ASCENSEUR • 

2690 REM ••»••*#*•••••**••• 

2700 IF <X6-14)+<X6-13><0 THEN 2730 

2710 IF (X6=16>*{X6-17><0 THEN 3060 

2720 GOTO 2920 

2730 CALL VCHAR { Y6. X6, 32. 2) 

2740 CALL HCHARCY21. 14,32,2) 

2750 CALL HCHAR! Y22, 16, 32. 21 

2760 Y21=Y21*2-4«A 

2770 Y22=Y22-2*4»A 

2780 Y6=Y21-2 

2790 CALL HCHARIY21. 14,36.2) 

2800 CALL HCHARIV22. 16,36.2) 

2810 CALL SOUND<-30, 300,6> 

2820 IF Y6-5 THEN 3230 

2B30 CALL VCHAR ( Y21 -2, X*. 72) 

2840 CALL VCHAR(Y21-1.X6,73) 

2B50 IF Y21-7 THEN 2880 

2B60 IF Y21=19 THEN 2900 

2870 RETURN 

2880 A=0 

2890 RETURN 

2900 A=l 

2910 RETURN 

2920 CALL HCHAR < Y21 . 14. 32, 2) 

2930 CALL HCHAR (Y22. 16. 32. 21 

2940 Y21-Y2I*2-4»A 

2950 Y22-Y22-2-MHA 

2960 CALL HCHARIY21. 14.36,2) 

2970 CALL HCHAR <Y22. 16, 36, 2) 

2980 CALL SOUND ( -SO. 30O. 6) 

2990 IF Y21-7 THEN 3020 

3000 IF Y21-19 THEN 3040 

7010 RETURN 

3020 A=0 

3O30 RETURN 

7040 A=l 

3050 RETURN 

3060 CALL VCHAR(Y6.X6, 32.2i 

3O70 CALL HEHAR1Y21. 14.32.2) 

30B0 CALL HCHAR(Y22. 16.32.2) 

3090 V21-Y21*2-4«A 

3100 Y22«Y22-2*4«A 

31 10 Y6-Y22-2 

7120 CALL HCHAR(Y21, 14.36.2) 

3130 CALL HCHAR1Y22. 16. 36.21 

3140 CALL SOUNDI-50.300,6) 

7150 IF Y6-5 THEN 3250 

7160 CALL VCHARtY22-2.X6.72) 

".170 CALL VCHAfitY22-l.X6.73l 

7-180 IF Y21 = 19 THEN 32IO 

7190 IF Y21=7 THEN 7230 

32- JO RETURN 

7210 AM 

7220 RETURN 

S230 R"0 
3240 RETURN 



THEN 
<>0)— 1 THEM 



X2S0 CALL HCHAR !Y6* 1.16. 74) 

3260 CALL SOUND ( 1 50, -5, O) 

3270 GOTO 3350 

32B0 CALL HCHAR f 24, 14, 76) 

3290 CALL HCHARt 24. 13, 73) 

33O0 CALL SOUND(150,-5.0) 

3310 GOTO 335C 

3320 CALL HCHAR ( 24, 16. 7*1 

3330 CALL HCHAR t24. 17. 7B) 

3340 CALL S0UND!130,-6,O) 

3350 FOR 110-1 TO 30 

3360 NEXT 1 10 

3770 GOTO 45B0 

3380 CALL KEY (0.K10. S10) 

3390 IF S1O-0 THEN 3380 

3400 FOR OELAI-1 TO 50 

3410 NEXT DELAI 

3420 CALL HCHAR I Y6*l , X6, 32) 

3430 IF Y6-3 THEN 3450 

3440 CALL HCHAR I Y6, X6, 32) 

3450 CAL.L HCHARt V2I , 14. 32.2) 

3460 CALL HCHAR ( Y22, 16, 32, 2) 

3470 CALL HCHAR t6, 14, 32, 4) 

3480 CALL HCHAR (24, 14, 32,4) 

3490 CALL VCHAR (23, 7-2»REMFLA. 32, 2) 

3500 GOTO 1320 

3310 IF tX6-10) • (Y6-7) • < A10'. >0 ) - - I THEN 

3380 

3320 IF tX6*10)»tY6-ll)>(B10<>0>--l THEN 

3630 
3330 IF tX6-10)»tY6-13mtC10<>0H--l THEN 

3720 
3340 IF (X6-21)»tV6-7)»tE10<>©)— 1 THEN 
3770 
3530 IF (X6-21)>tY6-ll)»tF10<>0)' 

3B40 
3560 IF (X6-21)*' 

3910 
3570 GOTO 2420 
3580 B10-B10+1 
3390 A10-A10-1 
3600 SCORE -SCORE* 1 

3610 CALL VCHARtY6-l.B,32.3-A10> 
3620 IF B10-4 THEN 4220 
3630 CALL VCHARtY6-B10*6,8,69,B10) 
3640 GOTO 2320 
3650 C10-C10*l 
3660 B10-810-1 
3670 SCORE-SCORE- 1 
3680 CALL VCHAR1Y6-1,B,32. 3-810) 
3690 IF CI 0-4 THEN 4290 
3700 CALL VCHARtY6-C10*6,8,69.C10) 
7.7 LO BOTO 2320 
3720 D10=D10*t 
3730 CIO-CIO-l 
3740 SCORE -SCORE* 1 
3750 CALL VCHAR ( Y6-1 . 8, 32.3-ClO* 
3760 SOTO 2320 
3770 F10-F10*l 
3780 E10-E10-1 
3790 SC0RE=SC0RE*1 

3B00 CALL VCHARtY6-l,23,J2,3-E10) 
3810 IF F10=4 THEN 4440 
3820 CALL VCHAR t Y6-F10+6, 23, 69, F lOJ 
3830 SOTO 2520 
3840 8I0-B10*! 
3B50 F10»F10-1 
3860 SCORE-SCORE*! 

3870 CALL VCHAR ( Y6-1 . 23. 32, 3-F 10) 
3880 IF B10-4 THEN 4310 
3B90 CALL VCHAR ( Y6-310*6. 23. 69, G10) 
39O0 BOTO 2320 
3910 HIO-H10*! 
3920 D10-B10-1 
3930 SCORE-SCORE* 1 
3940 CALL VCHARtY6-l 
3950 80T0 2320 
3960 CALL VCHAR1Y6.X6.32.2) 
3970 CALL HCHARt Y6, X6-1 , 77) 
39BO CALL. HCHAR (Y6, X6-2, 7B) 
3990 CALL HCHAR t Y6. X6-2. 32. 2) 
400O FOR 1-1 TO 10 
4010 NEXT I 
4020 X6-X6-3 

4030 IF tY6«Y21-2)*<X6-13)<0 THEN 2370 E 
LSE 3280 
4040 GOTO 2370 

4030 CALL VCHARIY6.X6.32.2) 
4060 CALL HCHARtY6,X6+l,77) 
407O CALL HCHAR(Y6,X6+2, 7BI 
40G0 CALL HCHAR(Y6.X6*1,32,2) 
4090 FOR 1-1 TO 10 
4100 NEXT I 
41 10 X6-X6+3 

4120 IF (Y6»Y22-2)*tX6-lB)<0 THEN 2570 E 
LSE 3320 
4130 GOTO 2570 
4140 A10-2 

4150 CALL HCHAR(6,7,70) 
4160 CALL SOUND(I20O,2OO,2) 
1170 FOR 1-1 TO SO 
•180 NEXT I 

4190 CALL HCHARt6,7,37> 
4200 CALL HCHAR (6. 8. 32) 
4210 GOTO 45B0 
4220 BlO-3 

4230 CALL HCHARt 10, 7, 70) 
4240 CALL SOUND U200,20O. 21 
4230 FOR I-l TO SO 
4260 NEXT I 

4270 CALL HCHARt 10, 7,37) 
4280 GOTO 4380 
4290 ClO-3 

4300 CALL HCHAfi(14,7.70> 
4310 CALL SOUND (1200,200,2) 
4320 FOR I-l TO SO 
4 330 NEXT I 

4340 CALL HCHAR t 14, 7. 37) 
4 350 GOTO 4580 
4360 El 0-2 

4370 CALL HCHARf6,24.71) 
4380 CALL SOUND 11200.200,2) 
4390 FOR 1*1 TO SO 
4400 NEXT I 

4410 CALL HCHARt6.24,33> 
4420 CALL HCHAR t6. 23. 32) 
4430 SOTO 4580 
4440 F10-3 
4430 CALL HCHAR(10,24,71) 



1,23,32.3-GK 



Suite page 23 



DEFENDER 



Petit jeu passlonnant. ou Ihabilete de lennemi naura 
d'egal que voire rapidite et votre precision 

Frederic GROUX 



Mode d emploi : 

les regies sont mcluses 






PC1500 




I: REM *De fenders 

* 

2: REM Isur PC 15 

00* 
3: REM auteur: 
«i REM Freder I c 

GROUX 
5:REH pour HEBO 

OGIC1EL 
15: "fl'TLS :«JftJT 

: CURSOR 8: 

PRJNT "*De fend 




18:CALL 58180. 

p OKE 30286, 0, 
20:CLEAR :D)M 0*( 

2), U4( J )*18, B* 

(.?), C*C2> 
30; PAUSE 'wous ou 



40:Q*<1>=' 03030)0 
J01' -Q*(2)=' 02 
02020202". Q*C3 
> = • 0E0E04040-r 
A*(4)-" 1C1C08 
0808' 

50:Q*(5J-' 3838)01 
010" :A*(6>-="F0 
F 0202020": Q*<2 
)-' , 6060404040' 

60;BS< I )^- 0103010 
10)03' :B$(2>=" 
020202020202' : 
B$(3)^"040E040 
4040E" 

70:B*(4)^'08JC080 
8081C':B*<5>^' 
1038)010)038' : 
B*C6)=' 20F0202 
020F0- 



?2: B*(2;^' 4060404 
04060* :U*C 1 )=" 
082O2G1C2F1C2O 
2008' :R4-' FF' 

?5:C*(] )-"0101010 
l':C*(2>^' 0202 
0202' :C*C3)^' 
4040404' : C*<4 J 
^'•08080808' 

?6:C*(5J^'10]0101 
0":C*<6)^"2020 
2020":C»<2)="4 
0404040" :U*-"0 
8-2OJC2F)C2fi0B- 

?3;E^4: v=]50 

90: RANDOM : O^RNO 
2: IF Y<5G0T0 1 
10 

95:UAIT 0: GPRJNT 
R*;A*<E>: 



GCURSOR Y: 
GPRINT B*CO; 

100:X*-JNKEY* : IF 
EODGOTO 115 

105:POR Z^YTQ 1 
STEP -20:**- 
INKEY* : IF X*= 
CHR* &1B0R X*^ 
CHR* &0CGOTO ) 
15 

103: GCURSOR 2: 

GPRJNT C*(DJ: 
GCURSOR 0; 
GPRJNT R*;Q*(E 
): GCURSOR Y: 
GPRINT B*(0): 
NEXT Z 

1 10; J=U-*I : GPRJNT U 
*(n:BEEP 3: 
GCURSOR Y: 



120 

125 
: 30 



GPRJNT BSCD); 

PAUSE 'plus qu 

« ' ; '4-U>; ■' ua 

;sseaux r : IF U- 

4 GO TO 260 

RQNDOn : G^RND 

2 
:GOTO 23 

IF X»^' LET Y= 

Y-5:GOT0 90 
: IF X$-CHR« U.0C 

LET E*E+l:V*v- 

5 

IF E>2LET E^l : 

GOTO 90 
! IF X4^CHRS &18 

LET tt-E-I:V=Y- 

5 

IF E<JLET E = 7; 

GOTO 30 



1 40; D=RNO 2 

145; IF Xl^'Q' GOTO 

150 
147:GOTO 30 
150;FOR Z-10TO )50 

STEP 50 
160: GCURSOR Z: 

GPRINT C*(E); 

GCURSOR 0; 

GPRJNT R*;Q$<E 

): GCURSOR Y: 

GPRINT 8*CD): 

NEXT Z 
180: IF E-OLET S-S-* 

1000:GOTO 185 
183:G0T0 J30 
1B5:GPR)NT R4;Q*(E 

); GCURSOR (Y-l 

);BEEP 2: 

GPRINT U*< J ); 



r&otf£l 



GOTO 79 

190: IF E-D-MOR E^D 
-1GPRJNT R*;Q* 
CE>:GCURSDR (Y 
-1>;BEEP l; 
GPRINT U*: S-S+ 
100: y=y-5: P-P-* 
1 

200: IF P^5G0T0 ] 85 

210:GOTO 90 

230: IF EODLET S-S 



10 



-Y-5: 



GOTO 30 
260:ulAJ T 100: IF S< 
0LET S-=8 
D R1NT 'Game ou 
er Score: " ; S: 
POKE 302B6, 65, 
25:G0T0 15 • 



220: 



CHECK BOOK 



Un utititaire de qualite pour un micro de qualite, ou 
comment gerer avec plaisir son compte bancaire. 



Frederic MOMMl JA 



SUITE DU N'81 



EP:RETURN4350 



3270 IFHM-OTHENO0SUS310:RETURN414O 

3290 GOSUB 1230 

3290 TC*-CS»-LEFT»l««*,ai -RIGHT* (S 

TMiftSi ,21 

3300 LOCATES, 3,0: 0NDRGDTO331 0,3320 

,3330 

3310 PRINT'CHARGEMENT llllllllllll 

t»" j :O0TO334O 

3320 PRINTSAUVEGARDE ************ 

**'l :OOT03340 

3330 print-edition i mmm i m i 

*»"! I0OT03330 

3340 LOCATES, 15,0:P»INT'Pon I ipnn. 

f la band* *t • l : O0TO336O 

3330 LOCATES, 13, O: PRlNTBranehar 1 

3360 LOCATES, 16, OtPRINTappuyvr Ml 

r una toucha - I : LOCATE 7 , 1 7 , O: PR1 

NT (ESC -> Abandonnal'l 'IMOTORON 

3370 IN*»INPUT»U> -:hotoroff 

3380 IFIM*-CHR«(27ITHENBEEP:GOT033 

10 

3390 LOCATEO, 13, O : PR 1NTSPC < 1 20 I I : L 

OCATES, 13, 0:ONDR0OT034OO, 3460,2300 

3400 PRINT-CHARGE ■ t TC«1 : OPENTC«F0 

RINPUTASai 

3410 INPUTai.Ava 

3420 FDRI-1 10N» ISIfcPZ: IFEOF 1 l 1 IME 

N3S10 

3430 INPUT* l.NUai li ,DC»I1) , I)E ■ (II , 

HO* ill, RU» < 1 1 , 0B» 1 1 1 , Df» ! Ill, NU« ( I * 

1 I , DC* 1 1*1 1 , DE ! 1 1*1 1 , MO* (1*1), RIM I 

1*1 ) , OBai I . i ) ,DR' (1*1) 

3440 NEKT 

3430 GOTO3S10 

34AO PRINT-6A,UW6 ■ I TC*1 : Of ENTCtFON 

OUT PUT AMI 

3470 PRINTal.AVB 

34*0 FORI-1TONB-1STEP2 

3490 PRINTNl.NUWII) tV*IO*|DC*(ll 10 

•IU*IDE' (II IV*IMO*(ll IV*IG*IRU*II) 

IG*IV*IO*IO**II] IG*IV*IDR' i I i IV* IN 

U*II*1I IV*IG*IDC*(I*1 i I G* IV* IDE ■ II 

• 1 I |V*IHOH(I*ll I V*iG*l«u*i I * I i IO*| 

v*IG*IOB»c I .1 I |G*I V*l DR' ( I »1 I 

3SO0 NEXT 

3310 CLOSEHl: LOCATES, S:PRINTSPC I 23 

I I : LOCATEO, 13,0:PRINTSPC( 1801 1 :gog 

UB129O:RETURN4230 

3330 '- vintllf " ------ -------- 



3640 T-E-74:L0CATE20.Y,0:PRIN- 

(E) |--'tLEFT*<L*,6l I : L0CATE29, T ,0: 

PRINTUSINGU3*|UVN 

3630 NEXTE 

3660 E-90:READL*:G0SUB42O 

5S70 Y-E-7i:L0CftTE2O, I, O: PRINTCMBK 

1EH *--|LEFT*!«L* 1 6l I IL0CATE29, V,0! 
PRINTUBINGU5*IVV*:VA- 1261 -WH 
3680 G0SUB172O 
3690 LOCATEO, 1BIPRINT-RECETTES "i: 

printugingus*ivv*i:locate20, ie,o;p 

RINT-DEPEN&ES -| :PR1NTUSINGUS*|WW* 

37O0 LOCATEO, 20, o: PRINT-SOLDE DU M 
015 DE "ILEFT*tMN*,4l |STR*IAA) I :L0 

cate26,2o:printusinguo*i i vv»-wu»i i 

3710 G0SUB230I LOCATES, 23,0: PRINT -A 
ppuy*r Mir un* touch*. . . • I : IN»-INP 
UT*(1> :G0TO3820 
3730 *- qriph* CF -—-——--— — - 

3730 G0SUB12S0:KEYOFF 

3760 IFNM-OTHENGOSUB310:ReTURN4140 

3770 MX'-O 

3780 F0RE-65T089:L0CATElO, 19,0:PRI 

NT'Calcul araph*.. . *| :GOSUB480:loc 
ateio,19,o:print&pci iai i :next:e-so 
:gosub420 




1210,01 ,CC:LINE<47, 1771 -STEP (0,-16 
21 ,CC:DP.AU-L2R2I0- 

3830 FORI-1TO(NX/1000)-1:PRESET(47 
, 1 73- I*10OOtH/NXI : DRAU'C 13L2R210" : 
NEXT 

3840 F0RI-lTO2#(NX/lO00ISTEP2:PRES 
ETI47, 17S-I*1000*H/NX/2I :DRAU'C13R 
210'lNCKT 

3830 RESTORE3960:OPEN-GRP: -foroutp 
UTAB*l:COL0R13,l, 1 

3860 FORl-LEN(STR*(NXl IT02STEP-l:P 
RESET(40-(LEN(STR*INX) I -I 1*6.81 : PR 
INT*1,NID*(STR«(NX) ,1,11 :NEXT 
3870 F0RI-0TO2d:X-I»8»4e: Y-l 73: RE A 
DCC:IFVA< (I*1I-OTHEN3890 
3880 HV-VA- (I*11*M/NX:LINE(X,Y)-ST 
EPI7,-HV«1) ,cc,bf: PRESET (X* I , Y«3I : 
PR I NTH 1, CHR* I 1*63 1 
3B90 NEXT 

3900 PRESET I 40, 1701 :PRINT*1 , *0' :CO 
L0R9:FORY-68T0116STEP8: PRESET ( 22, Y 
I : PRINT* 1, MID* ('Mont anf, Y/8-7, 1) : 
NEKT 

3910 COL0R7:X-44:FORI-lTO33:X-x*6: 
PREBETIX.OI : PRINT*), Ml D*(-D*p*ns*a 
du Nl« d* ■•""••5IB»1»«l,I,IH:N 
EXT 

3920 IN*- INPUT* ( II : CLOSE* l:SCREENO 
, ,,2:C0L0R13, 1,1 

3930 O0SUB12*0:kEYON:RETURN414O 
3940 DATA *A»*uranca< , 'Char aaa- , *C 



4020 NB-60:REH No.Br. da cfiaquaa 

4030 DIM NUR1NB1 ,DC*(NB),DEMNBI ,M 
0«(NB) ,RU*INBI ,OB*(NBI , OR '. (NB1 ,VA< 
(26) ,AUa,X,Xl,Y,Yl,T,S,I,AA,MM,CL( 
lOl ,Z,TE,LT,RG,CH,VVM,UMN,LI*,DR,A 
DM , E , F , WW* , DS, DB , PL , CC , H , HV , NX 
4040 PL-1 :LI*-99999. 99*:ONSTOPG05U 
8130:ST0PON 

4050 B*-STRIN0*(I,32) : L*-STR1NG* I 3 
7,32) :RP*-STRING*I13,32> :TC*-6TRIN 
G*(10,32) : TS*-STR I NO*i 13,321 : IN*-S 
TRING*! 1,321 :TR*-8TRING*( 239,32) 
4060 F0RI-1T0NB: DC*( t I -STRINO*( I , 3 
2) :RU*(I)-STRINO*(l,32):0B*(II>STR 
ING*(13,32) iMXT 
4O70 Il*--00000.00-: I2*--Annul* 

* : CB*- ■ cae : ■ : dd*- ■ oooooo * : DE 

• -DD* : OR*-i)D* : CM*- 1 1*: A*-STRIN0* I 1 

0,48) :WH*-STRINQ*(13,32I 

40B0 ZO«--0O000OO00O*:Z*~8TRINO*(l 

,48) :PP*-6TRING*I1,46) :c*-btring*i 

1,32) : v*-CHR*i«4J :a*-CHR«(34) sDEFU 

SRl-kH136 

409O UO*-'»NW*Na«.aa-:Ul*-'**aa**« 

■**• :U2*- ■**/**/** *:U3*- ■*»••». ••• 

:U4*--MM*-:U3*-**N*HM*.H > :U**-BTRI 

NG*(79,4SI 

4100 U7*-- *» MM******** ■■»■ 



4120 



pl. 




7 iS. CUEKUE UH 
\ UTiUTA'Pe DE 



int-check-book 

y-3:locatex,y:prii 

'i:L0CATE22,3,0:PR 
: Y"7:L0CATEX,Y : PRINT "Avoir 

1430 X-14: V-A: LOCATEX, Y: PRINTCHR* i 
•CHR*!86) I :F0RT-lTO12:PRINTCHBr*l 

• CHR* (97 I I :next:printchr«u)+chr 



4430 Y>e:LOC*TEX,Y:PRINTCHR*(l) *ch 

r* ( 90 i i :fort-itoi2:printchr*(d »ch 

R* 1 87 1 I :NEXT:PRINTCHR«(1I*CHR*(91) 
4460 X-0: Y-10: LOCATEX, Y: PRINT *Chaq 



GOSUB1400:GO 



THCN49 



u*'l 

4470 Y-12:LOCATEX, 

4480 Y-13IL0CATEX, 

•d 1 1 : • i 

4490 Y-l 4 I LOCATEX, 

4300 y-is:locatex, 

4Sio y-i*:locatex, 

4320 Y-17:L0CATEX, 
4S30 v-ie: LOCATE*, 



PRINT-Nuaar-o . 
PRINT-Dabl t/Cr 
PRINTDat* . . . 
PRlNT'Montant 
PRINT ' Rubr 1 qua 
PRINT-ObJ*t .. 
PRINT'R*cu 1* 



4S40 IFDB-OTHENCH-1 

4S30 LOCATE 7, 10,O:PBINTUSINGU4*ILH 

4360 00SUB1 370: 0OSUB138O: GOSUB 1390 

: RO-3: 006UB1400: GOSUB 1 4 1 : GOBUB 1 42 
o: GOEUB 14 30: HG- 7: GOSUB 1400: RG-PL : P 



4140 SCHEENO, , , 2:D»-0 
4130 G0EUB360:x-4: Y-l : LOCATEX, Y: PR 
INT 'CHECK -BOOK Entraa* | 
4160 X-S: Y-IO: LOCATEX, Y: PRINT -Not* 
: -|MID*(STR«(NM>,2>|:lOCATE 

20,y:printmm**space*i*-lenimn*i i i 

4170 X-S:Y-12:LOCATEX,Y: PRINT -Anna 
• ....I *IMID*(STR*HAA>,2)|»*| 
4190 •- *■!*• an t«t claa — — — — - 

4210 GOSUB 230:OO8U* BlOlOOSUB 860 

!K£Y ON 

4230 ■- aola -- — .-- — -. 

42SO X-17! y-io:locatex, y:printmid* 

(STR*IMN) ,2)*B*i:lt-2: TE-1 : GOSUB 10 

00: IFRP*---THEN42BO 

4260 IFVALIRP*) <10RVAL(RP*I >12THEN 

8EEP:0OT04230 

4270 MM-VAL IRP*J :LOCATE17, io;print 

MID*(BTR«tMM) , 2 1 -8*1 

42B0 GOSUB760:x-2O: LOCATEX, Y: PRINT 

NH**SPACE*(9-LEN<Ma»l ) | 

4300 *- innit -——.-——...-.•-. 



L-l 
4SB0 



4600 oosub 230: gosub 820: gosub 870 
:key on 

4620 ' - dlapatch *■■■■■■■■■■■■■■■■ 

4640 0NR0G0TO468O.4740, 4830.3O60.3 

160,3220,4830 

4660 ■■ nuitro ———————— 



4920 IFVAL(RP*)(10RVAL(RP*>) >12THEN 

BEEP : G0SU8 1 400 : GOT0491 

4930 IFLEN(RP*X2THENRP*-Z**RP* 

4940 MID*(DD*, 3, 21 -RP*: ONRGGOTO, ,4 

9SO, ,,,49*0 

4950 DE- (CH)-VAL(DD*! : GOSUB 1 -too: GO 

4960 DR' 1CH)-UAL(DD*I 1G0SUBI4O0 
4970 K-21 ;GOSUBlOO0: 1FHP*. 



4980 IFLEN(RP*K2THENRP*-Z**RP* 

4990 MID*(DD*. 1 , 21 -RP*: ONRGGOTO, ,3 

OOO, , , ,3010 

3000 DE- (CH)-VAL(DD*) : G0SUB1400: GO 

TO302O 

3010 DR' (CHI-VAL(DD*> : GOSUB 14 00 

3020 SOTO 3290 

3040 ■- ■sntint —.———.—— — 

3060 K-13; y-isilt-S: TE- 1 : 0OSUB1 OOO 
: I f RP*- ' • THENOOSUB 1410: 00TOS090 
3070 IFLENIRP»><3THENRP*-LEFT«IZ0« 
,3-LEN(RP«) 1 »RP* 

3080 GOSUB1*70:MO*(CH)-MO*(CN) -FIX 
(NOMICH) i *VAL(RP«) :0OSUB141O 
3090 K-21 ;lT-2:gosubiooo: IFRP* 

heng0sub1410:g0t0s12o 

3100 iflen(rp*x2thenrp*-z**rp* 

3110 g0sub13b0:momlchi-mo*ichi-imi 

mich) -f ix i ho* (chi i i • (val irp*) / 1o0 

:gosusi410 

3120 GOTO 3290 

3140 '- rubrloua -— ———.— 

S160 x-13: y-i*; TE-2: L T - 1 : GOSUBl OOO 
: I f RP*- - - THENGOSUB 1 420 : O0TOS1 BO 

5170 MiD«iRu«(CHi , i.i i-rp*:bosub; 



3330 GOSUB12SO:KEYOFF:CLS 

3360 IFNM-0THENG0EUB31O:RETURN4140 EDF ■ , *Eparana* , *Hab I I l***n t * , * I 4320 X-17: Y-12: LOCATEX , Y:PRINTMID* 

3370 MX'-0:RESTORE3940:GOBUB360:LO apot*-, *C*d •***', -Lolaira*, 'LDyar <STR*IAA) ,21 *B*I : L T-2; TE- 1 : GOSUB 1 O 

CATE4, I, O: PR I NT -CHECK -BOOK . < -Mat son- 00: IFRP*-- -THEN4330 

V*ntlla-| 3930 DATA 'Nourr 1 tura' , *Ord 1 nat*ur 4330 IFRP*- • -THEN8EEP: G0T04320 

33BO FORE-63T077:READL* • , •Pro4aaalann*T . *Crad 1 f , 'Rat rat 4340 AA-VAL IRP*1 : LOCATE 1 7, 1 2: PRINT 

3390 GOSUB4B0 ts'.'Sotna * , ' Talaphon*- , "Tfimpor MID* 1STR*( AAI , 21 *B*I 

3600 Y-E-6l:L0CATE0, Y,0:PRINTCHR*( t*" , "Vol turf , 'Uacsnc**' , *E***ne*" 4330 GOTO 4230 

El I *-'ILEFT*lL*,6) I :L0CATE9, Y,0:PR ,*Tab*c ",*R*tf*nua* 4370 '■ Ml** wn placa acran 2 — - 

INTUSINGUS*IVV« 3960 DATA2, 3, 14,3, 4 , 13, 6, 7, 8, 9 , 10, « 

3610 NEXTE 11, 12,2,3, 14,3,4, 13. 6,7, B, 9, 10, I 1 , 4390 CLS: 1FHM-0THENG0SUB310: GOT04 1 

3620 F0RE-7BT0B9:READL* 12 40 

3630 GOSUB4BO 39B0 4400 G0SUB360: X-4 : Y- 1 : LOCATEX , Y : PR 



46BO X-13:Y-12:TE-t:LT-10:G0BUB100 
O: IFRP*-"THEN00SUB13BO:8OTO4700 
4690 NU*ICHI-VALIRP*I : OOSUB 1390 
470O GOTO 32*0 

4740 x-13:y-i3:te-4:lt-i:gosubiooo 

: I r RP*- • 'THENOOSUB 1 39o: 00TO4B 10 
4730 IFRP*)-CH«*I43)ANDDC*ICH)-CHR* 
143) THENAUa-AVa*2*M0*(CH) :006UB137 



4770 IFRP*-CHR*(63l1HENG0SUB237O:G 

0T04800 

4780 IFRP*-CHR*(B31THEN00SUB2840 

4790 MID*IDC*(CH), 1,11-RP* 

4B0O G0SUB1390 

4B10 GOTO 3290 

4B30 'a d*t* --•■•--.--«.—.—.-- 

4830 G0SUB370: K-13: Y-1KRG: TE-1ILT 

-2:GOSUBt000:IFRP*---THEN4910 

4860 IFvAL<RP*X10RVAL<RP«) >31THEN 

BEEP: GOSUB 1 400 1G0TO4B30 

4970 IFLEN<RP*)<2THENRP*-Z**RP* 



5220 x-is: y-17:te-2:lt-is:gosubioo 

O: IFRP*-- -THENOOSUB 1430 IGOTO32S0 

3230 IFLEN(RP*I < 13THENRP*-RP*'LEF 

*ITS*. 1S-LENIRPVI I 

3240 HIDKOWICHI , 1 , 131-RP*: GOSUB 

430 

3250 GOTO 3290 

5290 rg-rgm: ifro>7thenrg-i 

53O0 GOT04640 

3320 '- traltaaant trrtur — - 

3340 IFERR-19THEMLOCATE4, 19,0:PRII 
T'Procadura I/O 1 nt*rroapua* I :6-2 
0OSUB270: CLOSE: RESUME NEXT 
3330 IFERR-S9THEN*rEBuaasNCXT 

3360 keyoff:clb:print*une erreur 
no -iERHi-i s'est*:print-produite 
a la ligne No *ierl:print:print*ve 

RIFICR LE LISTING DU PROGRAMME PU 
SEBBAYER DE LE RELANCER . . . • : IN*- 1 1 
PUTS 1 1 ) 
3380 '- protidun (In aw — 



LEGENDE 



Dieu du ciel ! Le Diable risque de reduire le genre hu- 
main en esclavage. Vous eles charge par la commis- 
sion tntergalactique des forces militaires (rien que pa). 
de detruire cette entite malefique et son royaume mau- 
dit. 

Patrice BODET 



THOMSON T07, T07 70, MO 5. 



SUITE DU N°81 

CHR»^ 127.<,4:FOPJ*lT05e:NEXTJiNEXTl 

2090 IF i*EV;5 THEN SCORE4=SCDRE4+<LEV*10 

e6':LEV=LEv*i:C0T03ee:ELSEREST0RE:RH=|:G 

QSUB3828:COTO840 

2100 CLSMF R5=1THEN L0CATE16.2:C0L0R1:P 

RI MT" TUNNEL": PR INT JC0L0R6: PR INT -BUT :TRflV 

ERSER LE TUNNEL EN TIRftNT SUR LES VAIS 

SEAUX ENNEHIS<EN ROUGE). A LA SORTI DU TU 

NNEL.TIREZ SUR LE BARRAGE ET S'ENFUIR 

PAP DESSUS." 
2181 IF R5=l THEN PRINT:PRINT "DEPLACEMEN 
TSJJOYSTICK ET ACTION. ":PRINT: COLOR3: PR1 
NT-PEMAROUE: ■:C0L0P6:PR]NT*IL FAUT RETAB 
LIR LA COURSE DU VAISSEAU CAR IL A TEND 
ANCE A MONTER ET A DESCEN DRE.LORSOUE V 
OUS NANOUEZ DE FUEL UNE PISTE D'ATTERIS 
SAGE APPARAIT." 

2102 IF R5=1THENLOCATE2.22,0:COLOR7:PRIN 
T-FRAPPEZ UNE TOUCHE POUR COWMENCER. ":R$ 
=INPUT*<1 >:R5=B 

21 69 CLS:S=4:SCREEN4,a,e:RS=CHRf(!27>:B0 
XF<0,3>-(39, 5>R»,7:BOXF<0,22>-<39, 1?>RS, 
?:X=37:Y=li:RKl> = 10:RHi 1 )=0: RH<.2>=28: RI 
•2'=18:FU=5ee:XH=2:CI=e:CS=e:PK=e:C0L0R5 
.0: LOCATES. 0:PRINT*LEVEL "LEV! SCOR£4=SCOR 
E3 

2118 A*=GR«<34):Bf=GRf:35):CS=GRfc36):D« 
=GR*i37j:E«=GR5C38>:F*=GRS<39):GS=GR*i42 
>:H»=GR*i43>: I»=GR»'44>: J*=CR*<45) : KS=GR 
f<.46>:N«=GR*<47> 

2128 L»=A**B**C«*D**E**FS*A»+B**C«*D»*ES 
♦Ft*AS«BS»C«+Df+E»*F«tA**B«+C**DS*E*+F«+ 
A**B*+C»*DS*E«*F»*A«*B»*C*+DS*E»*FS+A**B 
I+Cf 

2130 Hi=G**H»»I«*J**KS*N**G**H»+I**J*tK< 
-N«»GI*H»*I**J«*K**NS*-G**H$tI**J« + K**N«* 
G»*H«*If*J»+K**N«*G«*H«*lS*J*+K**N*+GS«-H 
**It 

£140 LOCATE8.6,0:COLOR7:PRINTGf»MS.U:LO 
CATE8,16,0:PRINTA«*B*+Ct:FORI=37 TO 3STE 
P-HC0L0R4: LOCATE I. 1 1 ,8:PRINTGRtC48>*GR* 
1 4 1 :LINE<I»8*I7,94>-t.I«8*23 f 94>,i:LlNE< 
I»8*17,94>-a»8*23,94),-l!F0RJ=lT026:NEX 
TjsLOCATEI.il, 8: PRINT" ":NEXT 
2158 L«=L**- ■ 

2168 H»=M$»" ■:F0PI=1T0VIE:C0L0R7!L0CATE 
I*17 f 8:PRINTGRS(0J:NEXT 

2 J 70 FOR J=1TOLEV:FOPI=8TO40: LOCATE 1,2: AT 
TPB 1,8: COLOR l: PRINT-FUEL :"FU:FU=FU-5: ATT 
RB0,0:IFC1«0 AND FU< 380 THEN SC0RE4=SC0R 
E4-<LEV»10B>:COSUB3806 

2175 IF C2 = 8 AND FU= > 388THENG0SUB38 I 8 

2176 L0CATE28, 1 : C0L0R3: PRINT-SCORE : "SCOR 
J4iL0CATE2e,2'PRINT-TENPSi*TEHP?:TEnPS=T 
EMPS-3 

2188 LOCATE0.6.0 

£198 CQL0R?:PRINTM![>$in*,4I-] .■ JLEFTIi H*. 

48-1 > 

2288 L0CATE8, 16,8 

2210 C0L0R7:PPINTPIIDI(L*.41-I>;LEFT«iLI. 

40-1 > 

2215 IF FUU00THEN LOCATE*. Y>0:PRHNT* u 

:Y=Y*l!G0TO2265 

2220 IF RND>.3 THEN LOCATEX. t, 0: PRINT " 

•JIF FU>1B8THEN Y«Y-leIF Y<7 THEN 828 

2230 IF RND<-5 THEN LOCATEX, V, BiPRINT " 

-:IFY<16 AND FU>188 THEN Y-Y»1:IF POINT* 

X»8*4,Y»8+7X>-1 THEN 800 

2248 ST=STICMl>:STR=STRIGtl/ 

2250 IF ST=1 THEN LOCATEX, Y,0:PR INT' -J 

IF FU>188THENY=Y-ltFU=FU-5:iF V<7 THEN 8 




\\i D/^TUME t/»i*5SES 
■\0 fo^t cent. 





226B IF ST»5 THEN LOCATEX, Y. 0: PRINT" "I 

IF Y<16 ANDFU 180 THEN Y»Y*1 :FU=FU-5: IFP 

0INT<X*8*4,K9*7 ■ -1 THEN888 

2265 IF FU' 188 AND Y. 15 THEN IF PuInt . >, • 

3+4,Yt8*7K>-l THEN880 

2270 C0L0R4: LOCATE:-:. V.8= PPINTGRf < 40 "GR* 

C41}tLlNE<312»Y*8*6>-< 316.Y«e+6 >, UL1NE' 

312,Y«8*6>-'3I8. Y«B*6 ■ . - 1 : 1FP0INT. X»8*4, 

y»8*7><>4 THEN 808 

2275 IFY=16 THEN BDXF(<X-£)«8+2, 13! 
-2)48+6, 133 >, 2: BOX' iX-3-«8*7, 128 

• 8, I32).2:B0XFi'>:-2:«8,121 ■-• <X-1 '»8-I, I 
3 J ).4!LINEt(X-l)*8, 132>-<:X«8, 134^,2:PK=1 

2276 IF Y=16 THEN FOR I J=121T0I3I 1LIME< < 
X-2>«8,IJ>-< (X-1>*8-1. Ut.0:XH=i:C'.SUB23 
10: LOCATE 1, 2: ATTRB 1,8: COLORS: FU=FU*50: PR 
INT-FUEL: "FU: ATTRB8, 8: NEXTIJ: LOCATE-: -3, 1 
6: PRINT" -:L0CATEX-4, 15: SPRINT" 
:Y=14: XH=2: F* - A 

2310 LOCATERHi ] .,RI' 1 >.8:PPINT" ■ 

2315 L0CATERH<2^,RI<2:-,8:PRINT" " 

2320 RIJU >=RND*2:RH. 1 )=RH' 1 >+XH 

2325 RIJ<2>=RIIM2!RH< ^) = RHv2^+XH 

2338 IF RND>.5 THEN RI J< 1 )=-RI J( 1 * 

2335 IF RND>.5 THEN R I j. 2 - = -Rl jr 2 . 

2340 PI- 1>=RI<1 >+Rl ... . i ■ 

2345 RIC2>=RH2>*R] J(2 ■ 

2158 IF RH-1'>38 THEN IF RND.-.5 THEN PH< 

1>=8 

2355 IF RH<2>:-38 THEN IF RND..5 THEN PH' 

2>=0 

2360 IF RIfI)<7 OR RI(1)>I5 THEN RI(1>=R 
K1)-RIJ<1> 

2361 IF RK2X7 OR RI<2>>15 THEN RI'2'=R 
I'2>-RIJ(2> 

2365 IF STR=-1ANDPK=0THEN LINEv294, v«8+6 
'-(238.Yt8*6'',3:!F SCREEN<RH< I )*1,RI'1>> 
:^32 THEN ATTRB1, 1 : LOCATERHi 1 >,RI * 1 ; :COL 

0R2:PRINTGR»(62>:L0CATERHU ),RU1):PRINT 

• -:PLAY'A1T2O4L4DOFA-:ATTPB0,8:RH'1)=8 
:3C0RE4=SC0RE4+58 

2366 IF STR=-1ANDPK=8THEN LINE(294, V«8*6 
-<230.YI8*6>,3:IF SCREENCRH(2>+1,R1<2) ) 

32 THEN ATTRB1, 1 : LOCATERH" 2>,RI < 2>:C0L 
OR2:PRINTGR*(62>:L0CATERH<2>,RK2>:PRINT 
- ":PLAY-A1T2O4L4DOFA-:ATTRB8,0:RH'2'=0 
:SCORE4=SCORE4+50 

2367 IF STR--I ANDPk=0 THEN LINE<294,YM 
♦6>-<230,Y»B+6>,-I 

2370 COLORltLOCATERHM ..RI< 1 ) , 0s PRINTGR* 

'48)*GRt(49> 

2375 C0L0Rl!L0CATERH<2),RI<2),8:PRiNTtiR« 

(48>*GRt(49) 

2398 IF PK-1 THEN RETURN 

2468 NEXTI:NEXTJ:TIR=8 

2485 FORK-37 TO 0STEP-1 : C0L0R4:LOCATEK, Y 

.0:PRINTCRS<48)+CR(' 41 • : L I NE i K 48 • 1 7 . VtFI * 

6f--Kt8+23,Y»8*6>, I : LINE CK»8*17, Y»8*6)-( 

K«8*23.Y»8*6),-i:XH=i:PK=l:GOSUB2318:L0C 

ATEK,Y,0: PRINT" ":NEXTK 

2418 CLS:8OXFl0,50)-<47, 135), 4:80XF(37,3 

>-<39,5>R»,7:LlNE<:0, 136)-<319, 136),2JL0C 

ATE37,6:C0L0R7:PRINTGS*H*>I*:B0XF(58,48> 

-1 68, 135),5!LINEf80,68)-C80. 135), 5: LINE* 

60,40>-<88,60>.5:COTO2430 

2415 COLOR5:LINE'70,58)-<65,62):LI«E-*75 

,68):LINE-(77,70):LINE-<79,75)!LINE-C63, 

90-':LINE-(72,85>iLINE-(74, 10e>:LIME-(77. 

98>iLINE-<62, 120 > : LINE-<64, 125>:LlNE-< 64 

.135):LINE<62.120>-'67.125>:LINE-<67,135 



J=1T035:NEXTJ 

2421 LINE< 0, 1*42 -.47. 1+42 ■ .0: NEXT I :PSET 
:■?. lb -P*:F0RI=88 T0128: L INE-:0. I '-«?,] i 
-0:FORJ=ITO40: NEXT j: NEXT] 
^422 FOR1 = 128T0135:LINE<8, I '-'47, I ),0!FO 
Fj=0TO40:NEXTJ:LIN£t64. I )-(319, I ), -I :P8E 
T- 80. I>.5iPSET<64, I ■,5:PSET<67. I ).5:NEXT 
:i:nTO2800 

^430 ST=5TICK^ 1 ;':STR=STRIG< 1) 
3440 LOCATEX, Y,0:PPINT" " 
2450 IF X>0 THEN X«X-1 ELSE ST=8HF TIR= 
8 THEN VIE=VIE-i:IF ViE=8 THEN 840ELSEPL 
Mi"«3T3O2L10DOiPDObPDOt":COTO2iee 
2460 IF ST=1 THEN IF Y> 1 THEN Y=Y-1 
2478 IF ST=5 THEN IF YC16 THEN Y=Y+1 
2475 IF X=8 AND TJP=1 THEN RETURN 
2438 IFSCREEN. X. V' >3£ THEN 800 
2498 COLOR4:LOCATE;;.Y.0:PRINTGR*(40)+GR* 
- 4 1 ■:LINE'X»8+17. V48+6 ■-<X$8+S3. Y«8+6:- , 1 
:.INE- >;*8+17.Y«8+6 '-<X«8+23.Y»8+6>,-l: IF 
TIR=0THEN FOP J=0TO35:NEXTJ 
2588 IF STP=-1 AND X>8 AND TIP=0 THEN LI 
NE ■ ' -1 '*8+6,Y«8+6 '-■.'■ :-8>«8.Y»8+6'.3:Ll 
HE- X-l.'iS+6.Y«8+6W< : -8 > t8. V»8+6 • , -1 : I 
F5CREEN<X-e,YK>32 THEN TIR=i : G0T024 15 
2585 IF T IR=1 THEN RETUPN 
2518 C0T02438 

3888 L«=" "*A*+B*+CS*t'*-EI + Fi+Af+6 
l'Ct+t'*+E«+FI+Hf+B»+C*+D«+ES+FS*A**B«+CI 
• IS.Ei+F* + A*+BI+CJ'-DI+E«*Ff*A«*B(+Ct:Cl = 
i:C2=0: RETURN 

3018 LJ=.hI+B*+C*+DI+ES+FS+AS*B1+C*+D»+E* 
-F».H».BI+CS+D»+ES+F«+A«+B«+CI+Di+E«+F*+ 
hi *Bf+C*+DI+E«+FI+AJ+e*+CS*D«+E*+FI+A«+B 
I+C*+D$:C2=i:Cl=8: RETURN 

3020 CLS: SCREEN2, 0. 8 : BOX <8,0)-< 328,193). 
2:F0PI=IT06:READA.B.C.D:LINE' A,6>-tC,D). 

4iNEXT 

3038 DATA 184,117.231.117.184.117.288,14 
9.233. 184.239, 192.235. 151.245. 160,270, 18 
4.277, 1^*2.23!, 132. 196.132 

:*40 FQRIMT05JREAD H . B. C ■ V- I INE< A,B)-(C 
. ' . 1 : NE/T: B0>!< 254,1 22 >-< 208, 126;. UBOX* 
2SS. 150>-'224, 146-. i:LINE'26, 16)-<26. 19) 
GP«' 53 '.3s LINE <28. 19>-(28,22)GPf 53 -,3 
3858 DATA 225.184.288.184.225,168,256,16 
0.256. 160.207.160.207. 168.223. 184,256,16 
(-.280. 184 

3060 F0R1 = 1T045:READ A, 8. C. CELINE- A. B>-< 
CD -.5:NEXT 

3070 DATA 288.183.280.151.256.151.256,16 
0-232. 127,232,145.256,42.264,47.248,32,2 
4?. 4£. 248. 45, 248, 45. 280. 47, 280, 88, 3 12, I 1 
5.328,113,296, 105,304, 185,304,97,304,105 
3888 DATA 280,95,288,95.288.95,288,87.26 
4.85.272,85.272,85,272.76.288.80.288.75, 
364.80.296,73,296.75.296,67,320.72,312,6 
7,312,67, 320,67. 312- 67, 312. 73. 312,75,328 

3090 DATA 256, 72, 2t.4, 72. 272,77, 264, 72, 26 

4.77,272,77.272,82,288,82,288,87,280,82. 

2£2. 87, 288, 87. 288, 92. 296, 92, 384, 97, 296, 9 

2,304,97.296,97,384. 102,312, 182,320, 187, 

312.102,328, 107,312.107.232,32,248,32 

3108 DATA 248,32,248,37,248.37,248,37,28 

0. 145.278, 110,278. 118.256,134,256,134.25 

6. 145,288.72.280.67.288,67,280,67.288.67 

.296,72,384.72,296.67,296.67,384,67,312, 

72,304,67 

3118 PSET'232,121 ), 5:F0RI=1T014: READ A, 6 

:LINE-«A,B),5:NEXT 

3120 DATA 232,32,240,37,240,45,248,58,24 

8,42,256,47,264,47,264,55,272,55,272.47, 

288,47,272,42,264,42,272,47 



3136 PSET'272,55).5:F0Rl=tT09:PEA[M 
NE-' A,B>,5:NEXT 
3140 DATA 264,50,264,37,256,32,248,32,25 
6. 3T\ 264, 37,256, 37, 256,42, 248.42 
3158 PSET ( 256,47;,5:FORI=1T015:READA,B:L 
INE-(A,B>,5:NEXT 
3168 DATA 256,72,264,77,264,85,272,98,27 
2. 82, 288, 87, 286, 95, 288, 100, 288, 92, 296, 97 
.296, 185,364, 118,384, 182, 312, 167, 312, 
3170 PSET<280,80>.5:FORI*1TO9:READ A,B:L 
INE-(A,B).5:NEXT 
3180 DATA 288,88.288.72,296,72,296,88.30 
4,88,364,72,312,72,312,86,326,86 
3185 IFRU=1THEN3226 

31 90 C0L0R4: FORA= 1T024: READB: LOCATEA, B,l 
:PRINTGR*<55>+GRS<56>:FORJ=1TO70:NEXTJ:L 
0CATEA,B,8:PRINT" " :NEXTA:L0CATE24, 21 : 
R I NTGR«C 55 ) +GR*< 56 >: FORI =1101808: NEXT 
3200 DATA 6,6,6,7,7,8,8,8,8,9,16.11,12,1 
2, 13, 14,15, 16, 17, 18, 19,26,21,21 
3216 GOTO3300 

3220 COLOR4:B=2I:LOCATE24.B:PRINTGR»<40< 
+CR«^41):FORI=ITO1000:NEXT:LOCATE24,B:PR 
INT* " :FORA=24T01 STEP- l:B=B-RND: LOCATEA 
,B.0:PRINTGR«M8)+GR*<41 ):F0RJ=1T078JNEX 
Tj:LOCATEA,B,0:PRINT- -tNEXTA 
3230 RETURN 

3360 I*='NISSION URGENTE-STOP.'DEVEZ DETR 
UIRE DIABLE^STOP 'AVANT 48 HEURES'STOP-'TP 
ES GROSSE RECONPENSE'STOP/Siane Cotussi 
or. Interna lac tmtue des Forces Militaires 
. STOP'" 

3316 LOCATES, 0,6:COLOR6:FORI = 1TOLEN«U>: 
PPINT HID* (II, 1,1 );:PLAY-A1T103L5SI»':FO 
PJ=1TO30:NEXTJ:NEXT:FORI=1TO1008:NEXT:RE 
TURN 

4800 L0CATE13, 10.0: ATTRB1 . 0: PRINT-LEGEND 
E-:ATTRB8,e:FORI=0TO320STEP2:PSET<I,192) 
,2:NEXTI 

4061 C0LORi:LOCATE31,21iPRINTGR*<38):LOC 
hTE31.22:PRINTGRH31 • JL0CATE32, 21 :PRINTG 
PI(18':LOCATE32,22:PPINTGR*i20>:LOCATE32 
,23:PPINTGR*<22):L0CATE33,2i:PRINTGR*> 19 
>:L0CATE33,22:PRINTGR*<21 
4662 L0CATE33.23:PPINTGRH23)!LOCATE34,2 
1:PRINTGR*<:27):L0CATE34,22:PPINTGRS<29 >: 
L0CATE34,23:PRINTGR*i29> 

4805 COLOR6:FORI-19T029:L0CATEI-l,22:PRI 
NT- -:L0CATEI-1,23:PRINT- ' :L0CATEI,22:P 
PINTGR*' 1 .:L0CATEI,23:PRINTGRIi2>:LOCATE 
I+1.22:PRINTGRI' 18 > :L0CATEI+1 . 23: PRINTGR 
IUl):L0CATEI+2,22:PPlNTGR*i 12- 
4010 PLAY" Al T105L5SI": FOR J=1TO50: NEXT J:L 
OC ATE 1, 22.0: PRINTGR** 1 3 ) : LOCATEI , 23:PRIN 
TGRH5!>:L0CATEI+1,22:PRINTGR*(52>:L0CAT 
EI*I,£3:PPINTGRI'54):L0CATEI+2,22:PRINTC 
R« ( 6) : PLAY-DO"! FOR J»1TO30: NEXT J 
4020 LOC ATE I, 22: PR INTERS ( 5? >: LOCATE 1,23: 
PR INTGR<( 58): LOCATE I + 1.22: PRINTGR*. ^^ :L 
OCATE I + 1,23: PRINTGR* r68.' ."LOCATE I +2, 22! PR 
INTGR»i,61>:F0RJ=IT0iee:NEXTj:NE>:TI 
4838 PLAY"A2T205L2'SISOSISOSIS0SIS0SIS0SI 
SOLALASOSOSOFAFAFAFAHIfliniHIrllREPEPEPERE 
REDODODODODODODO": FORI =1TO500: NEXT 
4846 PLAY-A0T5O4L24SISIO5DOREREDOO4SILAS 
OSOLASIL72LAL12SOL48SO":FORI=1TO580:NEXT 
:C0L0R2 

4850 LOCATE0. 25: PR INT: PR I NT: PPINT: PRINT: 
PRINT" Realise par Patrice BODET" 

:PRINT" Ert collabcration av«C " ! 

PRINT" Chnstophe LEROUX"!PRI 

NT' ET-IPRINT" 

Hawaii TH0HAS":F0RI=1T09999:NE\T:R 
ETUPN • 




Un terrain de golf dans votre poche. ou comment de 
mocratiser ce sport a lextreme. 



Mode d'emploi : 

Faire VAC au Dremier lancement 



Vous etes sur la pelouse dun goll el a chaque trou (il y en a 9) 
apparail un parcours (attenlion aux embuches) Une Heche repre- 
sente le trou que vous devez atteindte et le signe ' votre balle Le 
temps d appui sur ' determine ia dislance de parcours de votre 
H.Gael LOZAC balle Si elle depasse le trou. vous la tatles revenir en arnere en 
eftectuant la meme manoeuvre A vous de doser voire effort" afin 
deviter les obstacles el dattemdre la Heche en un minimi 
lemps 




issuer 



LIST 

1 PRI "HUTEUR...6 
BEL LOZflOT 

2 URIT :5:Bt=".": 
S=l:«=" 



3 PRT " «....t8 
OLFt »" 

* GSB 788 
5 MH#I 
1 IF I>5 THEN 688 
S FOR J=l !0 
9 PRT MiJ,.;\.. - 
IFKJtS!!" PTS" 
18 PRT M(J)i" PAR 



COUK:"!T:0=l:F 
=e:E=«:R=8 

12 PI=1HT iRRNUSi* 

u 

15 NUT (RflNHie! 
♦9: IF N=N THEH 
15 

16 0=IHT (RDNH18) 
♦9UF 0=N THEN 
16 

1? IF 3=11 THEN \i 

13 IF T=5; IF N*2)l 
3;N=16 

19 IF T=5!IF umi 

F HiN*2 THEN 15 

25 iF T=2!65B H58 



5! HfllT 8:IFT(6;0 
=H 

55 FOR I=F TO D ST 
EP S 

68 prt csr e;s;css 

H!"t";CSR tl;S! 
ICSR OlBtlCSR i 

65 NEXT I:F=D=MHIT 

25 
63 IF D>H?X=-1SS=- 
l:6GTD 78 

69S=l:S=l:lF 1=2; 

f.=2 
78 If D=B THEN 288 



73 if T=5;lFt>«I 
F tml THEN 38 
8 

75 IF T>2;IF D=N T 
HEH 386 

77 IF T>2HF 0=3 I 
HEN 388 

33 IF E=5;PRT "5 E 
SSfllS.DOrniABEi- 
:P=2:60T0 385 
168 IF KEV*"*" THEN 

118 IF KE?="'"-P=r< 

!!:60!0 118 
113 IF D>ie;F=2»IH 

-i:I=F'i:PRT "T 



POP F0RT ; !":R=- 

1 
115 IF F<e;PRT "BER 

UCOUP TRCP FOR! 

!":£0T3 385 
128 E=E+l:SOT0 58 

:ee prt "grshe'ru"; 

ESVi" ESSfll" 
265 fl(J*5)=(t;jt5)M 

-E»I*R:NEXT J 
218 60T0 5 
388 PRT "mVd K L 

E-;C1,".. PERDU! 

-:P=8 
385 B;jt5'y=8(H5i-fl 

BS '.N-D)-P 



313 NEZI J: SOTO 5 
582 li=8:PRT '3» UNE 
PEHTE!":R=B:RE 
T 
563 Cl=" SflBLE?:PRT 
'BV M";CJiBl= 
T:RET 

584 Ct=' TRtll,'":PRi 
"9V ilN";M:BI=" 

':RET 

585 Ci=" LflC":PR! " 
RV M PLAN 0.E3 
U"iB$=',,,":REI 

566 Ci=" MR": PRT " 
fiv IJH";C«:BI=*' 



":SET 
587 il=" R0CHER":PR 

! "fiV 3H";Cl:BS 

=V:RET 
53J C!=' CHEME":PRT 
'B» UTI P.RERE": 

Et="r:RE! 
539 Ci=" P0IEBU":PR 

T '»V UN";Cl:Bi 

=T:RET 
688 PRT TIN W FAR 

teUR:","TOTBUr 
6C5 KBIT 33 
613 FOR J=l TJ 8 
615 IF fi<J+5>>V!V=H 
■' I ':3!=B«!J; 



PRT MU);"..'; 
80*5)1° PTS":H 
EXT J 

frt mora.."! 

Fi»;V'"PTS":EK2 
1HP "NB OE JO'JE 

uRSf4nax>".Q 

FOR 1=1 TO E 

R',;t5)=8 

FRT 'JOiJE'JR.'-'IJ 

ir,M(j) 

tt:: T WEI • 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 
VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 420 FRANCS POUR 52 NUMEROS AU UEU DE 
52 x 10 =520 FRANCS. ABONNEMENT POUR 6 MOIS : 220 FRANCS. Pour letranger: 80 F. pour 1 AN 

+ 40 F. oour 6 MOIS. 
NOM : MATERIEL UTILISE : 

PRENOM : CONSOLE : 

ADRESSE : PERIPHERIOUES : 

BUREAU DISTRIBUTEUR: REGLEMENT JOINT : □ CHEQUE DCCP 



ZX-TEXTES II 



Sur votre ZX, ridiculisez, par un traitement de texte 
digne de ce nom. les pretentions de? grosses becanes 

Denis BOUDOT 
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Mode dempioi 



Premierement, tapez le programme chargeur (listing 1, deia pubiie 
dans le numero 80) et a la demande Longueur REM T. renire2 
3955 Tapez ensuite un a un les codes MACHINE du listing 2 Ce 
travail effectue. tapez en mode direct RAND USR 19000. ce qui 
aura pour eHet de supprimer les hgnes muliles et de preserver la 
ligne REM Tapez le listing 3 et apres RUN. taites RAND USR 
19000. Tapez alors le listing 4 et lancez le programme 
ZX-TEXTES II est un programme de traitement de textes pouvani 
memoriser Jusqu'a 13 pages (57 pages avec 64K) de 23 Iignes sur 
32 colonnes. La 24eme ligne vous intiiquera a tout moment la video 
en cours (normale ou inversee), la taille d'ecnture (petite ou geante). 
ainsi que la vitesse de repetition (lente ou rapide) Vous aurez 
acces a une vingtaine de commandes dont voici le descnptif 
N L : newline, provoque un retour a la ligne Si le curseur se trouve 
sur la derniere ligne (23eme). retour au BASIC- 
SHIFT + 5 : deplace le curseur vers la gauche. 
SHIFT + 6 : curseur vers le bas. 
SHIFT-* 7 curseur vers le haut. 
SHIFT* 6 : curseur vers la droite 

SHIFT* 1 : insere un espace sous le curseur en decalant tout'ce 
qui suit d'un caractere vers la droite. 
SHIFT* : delete, efface le caractefe se ttouvant a gauche du cur- 
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seur en decalant tout ce qui suit dun caractere vers la gauche et 
en mserant un espace a la 'in 

SHIFT- 9 graphiques passe de lecnture en video normale a 
lecriture en video mversee et vice-versa 

SHIFT - R frappe R L passe de la vitesse de repetition lente a la 
vitesse de repetition rapide el vice-versa 

SHIFT - G geant passe de lecriture normale a <ecnlure geante et 
vice- versa 

SHIFT- H home, positionne le curseur en haul a gauche de 
lecran sans I'effacer 

SHIFT* E efface lecran et eHeclue HOME 

SHIFT* D copie lecran sur imprimante La commande taisant 
appel a la routine COPY, elle n'impnme que ies 22 premieres iignes 
de lecran. 

SHIFT* 4 : inv tout, effectue linversion video de tout lecran (saut 
24eme hgne). 

SHIFT* T : inv texte. effectue linversion video de loutes les lettres. 
chiffres signes de poncluation et mathematiques ecnts en taille nor- 
male. 

SHIFT* : scroll H, efface 32 caracteres 11 ligne) a partir du cur- 
seur en remontant ce qui suit d'une ligne isaut la 24eme) 
SHIFT* A scroll B. insere 32 espaces a partir du curseur 
SHIFT* 2 : I in memorise la lettre situee sous te curseur et lefface 
128 lettres peuvent amsi etre memonsees (4 hgnes) Ces lettces 
peuvent ensuite etre inserees ailleurs dans la paqe ou dans une 
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autre page (voir lout), d ou la possibilite de deplacer des phrases 
SHIFT- Y : I.in2. idem I. m mais n efface pas la lettre memonsee. Le 
curseur est deplace vers la droite. dou possibilite de dupliquer des 
phrases 

SHIFT- 3 I. out. insere a la place du curseur la derniere lettre me- 
monsee par I in et ou I in2 

SHIFT- F 1. clear, vide le buffer ou sont memonsees les lettres 
(par I in ou I in2). Utile quand on ne sail plus ou on en est 
SHIFT -r W p load, affiche a lecran une page quelconque L'ordi- 
nateur demande d'abotd le numero de la page (enlre 1 et le nombre 
de pages reservees a linitialisation) Tapez le numero (2 chiffres 
maximum) Appuyez sur NEWLINE pour valider ou delete (SHIFT + 
0) en cas d'erreur. Si vous entrez plus de 2 chiffres. I'ordmateur 
considere le 3eme comme un N L. Si vous avez fait p. load par er- 
reur. tapez NEWLINE sans rien avant. Dans ce cas. ou dans ceiui 
ou le numero entre est hors mtervalle. I'ordinateur n'effectue pas la 
commande 

SHIFT* S : p.save. memorise lecran dans une des pages reser- 
vees (23 premieres iignes). Meme utilisation que p load quant a len- 
tree du numero. Si la page dans laquelle vous desnez effectuer la 
sauvegarde est deja occupee. elle sera affichee et confirmation du 
p save sera demandee Cela evitera lecrasement des pages prece- 
demment ecrites 

SHIFTN L : commandes, affiche un menu recapttulatit de toutes les 
commandes accessibles avec la touche SHIFT 
c*SS 



UN ESPRCE 




1 ftfsTRE 




160 LET R«-R|*"0 
ME OU CURSEUR. 9 
/INUERSEE. R 
/LENTE. 

TE/CERNTC. 

190 LET ft«-R»* H 
UT R GfiUCHE E 
N ♦ HOME. 
UR IMPRIMBNTE. 4 
L*ECRRN. 

300 LET H* = ft» + , -T 

E5, CHIFFRES 

RCT. tl LIGNE) . R 

■ i ■ > . a 

FFRCE 1 CflRRCT. 

310 LET A»«R8+"Y 
RRRCTERC. 3 
R CRRRCT. MEMOfl.F 
, EN MEMOIRE. U 
ROE MEMORISES. 

320 LET A*»R«+"- 
PAN (-J PRCEi . 



EFFACE fl CRUC 
UIOEO NORMALE 
FRRPRE RRPIDE 
ECRITURE PETI 



INVERSE LETTR 
EFFACE 33 CRR 
IN5ERE 33 
MEM0RI5E ET E 

MEMORISE UN C 

INSERE DERNIE 
EFFACE CftRRCT 
RFFICME UNE P 

MEMORISE L B 



240 GOSUB 1000 

360 SLOU 

260 SLOU - 

2e« PRINT "OK. TERMINE" 

370 STOP 
1000 REM 

1010 REM BJB POKE 
1030 REM 

1030 FOR I-i TO LEN A* 
1040 LET X»COOE AM) 
1050 IF X-l THEN LET X-ll 
1060 IF x.ia TMEN LET X-118 
1070 POKE fl+X-l.X 
1060 NEXT I 
1090 RETURN 



LISTING 4 




* 

ZX - TEXTES II » 
(C) D. BOUDOT - 1968 • 
ZX61 >DE 16 A 64 K) * 

■I INITIALISATION 



^fE§il zx " TE 



. BouDo 

APPUYE 



LISTING 3 



LIGNE CRRRCTERE5 

140... '**• ATTENTION PAGE OCC 
UPEE .**a-.* SAUE CONFI 
RME ? lO/Np *#*•' 

170. . . ZX TEZTES II 
SHIFT + 

■ APPUYEZ 5UR UNE TOUCHE 
POUR *■* REVENIR fl LA P 
AGE EN COURS. *■ 



it sis : *•*: 

30 REM * TEXTES * 
40 REM ft * 

50 REM itMiftii. 
60 REM 

70 FAST 

80 LET Ai.-UIDEO N, 
p, FRAPPE L. " 
90 LET A«18107 

100 cosue 1000 

110 LET fl»«" QUELLE PAGE ^ il 
501 > £ UALIDER PAR 
EULINE. £«<3x>. .......... 



CRROCTERES 



*19508 
160 G0SU6 1000 
170 LET R6«" 

IJMMONOE5 



210 PRINT RT 13,6, ' 
T - 1965" 

32« PRINT RT 30.0, ' 
Z SUR NEULINE. > ) > > 

330 GOTO 330* iINKEYS-CHRi 116) 

240 LET Li-PEEK 16400*356 tPEEK 1 
6401 

350 IF PEEK U-196 THEN OOTO 350 

360 LET PM.INT [(PEEK 16366*286 
•PEEK 16367-3a0-U) /736) 

370 PRINT AT 30,0, ■'COHBIEN DE P 
RGES DESIREZ-yOUS 7 (".PM," RU M 
RXIMUM) '• 

280 INPUT P 

390 IF Pel OR P>PM TMEN OOTO 36 



(P/10) *28. ,P 

330 POKE 18543, 36+P-10»INT iP/1 
0) 

330 CLEAR 

340 DIM RfttPEEK 17649,736) 

350 CLS 

350 REM |H APPEL ROUTINE L-'M 

370 REM 

380 RRND USR 16660 

390 REM 

400 REM mm SAUUEGAROE 

410 REM 

420 POKE 16416,0 

430 PRINT AT 33,0, ")>) SAUVECAR 

DE ? tO/N) (( i" 

440 GOTO 443-60* UNKEYI.'N ... Li 
NKBY6«"Q"I 

450 PRINT AT 33,4, "UIDE 7 10/N) 

460 GOTO 460* (XNKEYO*"") 

470 GOTO 470* i INK.EY««"0" > ♦30ftil 
NKEYi.-N") 

460 CLEAR 

490 PRINT RT 33, 8, "<*<«< RPPUYE 
Z 5UR NEULINE. >)>>>" 

500 POKE 16418,3 

510 GOTO 510* i INKEY*«CMRi 116) 

880 CLS 

830 REM 

540 SRUE "ZX-TEXTES IB 

560 REM 

560 REM _ 

570 GOTO • 



C'est nouveau, pa Went de sortir 



BIDOUILLE GRENOUILLE 



Clic 

...au hasard Certes. I'armee 

Chiite ne peui pas se permettre 

une nouvelle defaite, surtout 

apres les degats mfliges . 

Che. 

de jeunesse pour les Fender 
labriquees au Japon. el pourtant 
le logo d'ongine, cetle lois blanc 
e! beige pour ressortir sur les fi- 
nitions noifes qui recouvrenl les 
letes. Des Stratocaster dun vert 
pomme miraculeux. dotees de 
vibrations... 
Clic. 

. politique nous fait chier a 
cause des medias qui en font un 
plat. Putain. les polittcards sont 
des pros du show-bizz. point 
Vous le saviez. vous. que la Ca- 
ledonie avait un probleme inde- 
pendanl avant que la presse 
bien eduquee en fasse... 
Che. 

les soussignes. dune pan. et 
la... 
Clic. 

solution complete de Masque- 
rade, de Jean-Michel Lesne 
search body, get wallet, move 
body, open case, get mask, get 
box. wear mask. s. s. wait, n. e. 
wait, wait, wait. wait. wait, wait, 
get phone, say zorch (retenez le 
code que la voix vous donne), 
push button, e. e. n. gel bra. s. 
w, s. get book, w, s, s, w. move 
block, use corkscrew, u, w, s. s. 
s, e, open wallet, give dollar. 
drop wallet, drop gun. e, s. say 
(numero de code donne" par la 
voix). wear (lower, w. give book, 
gel dollar, e, buy popcorn. 
search popcorn, wear badge, 
get popcorn, e, s. give popcorn, 
w. w, enter office pull switch, e, 
n, e. n. n. search field, wear 
glove, drop box, s. s, w. s. e, 
move rock, get ticket, e, n. drop 
bra. drop rock, w. n. w. get card, 
w, n. w. n, insert card, drop 
card, drop watch, s. wear hel- 
met, s. get razor, put mask, 
shave, wear mask. n. e. S. e. e. 
n. e. n, get hammer, s, W. use 
hammer, drop hammer, e. n, get 
dynamite, s, w. s. drop dyna- 
mite, n, d, e, n, w. w. cut block, 
drop razor, get toothpick, u, w. 
s, s, s, e, e, get dynamite, s. e. 
drop dynamite, drop toothpick, s, 
get bird, w, get snake, e, n, drop 
ticket, drop helmet get bra. get 
rock, insert rock, sling bra, use 
toothpick, get dynamite, enter 
cage, free bird, drop dynamite, 
lighl dynamite, d, n. n. drop 



snake, gel box. gel earring, n 
go door, push button, e. n, w. n, 
w, w, u, w. s, s. s, e. e. s. e, 
wear helmet, put box. get ticket. 
w, n, w. w, n w. wear bra wear 
earring, drop ticket, n. wear 
watch, go door ... 
Che. 

...je me rappelle. il y a dix ans. 
ce netait pas si cher que ca 
Meme en tenant compte de la 
proportion entre. 
Clic. 

..genial, suriout le passage ou 
on le voit en train de sauter au- 
dessus du machin. tu sais. la ou 
il y a la lave et tout. II y a un 
true que. 
Clic. 

...loujours Jean-Michel Lesne, 
cette fois-ej avec la solution 
complete de l Enlevement : pren- 
dre cheque, bouger corbeille. 
prendre cle. ouvrir tiroir. regar- 
der tiroir. prendre passeport, n, 



pas faire clic. c'est tres desa- 
greable En plus, il narrete oas 
Faudrait peut-etre 
Che 

..impulsion que j ai du mal a ex- 
pliquer C'est com me si lu etais 
dans un toboggan, tu vois. qui 
descende Alois t'as limpression 
que les Iripes remontent. c'esl 
chouette. quand meme Comme 
dans une. 
Clic 

information is Ihen read into 
memory If skewing was not 
done and the sectors were m 
sequential... 
Clic 

.et leternel Jean-Michel Lesne 
avec des conseils pour Dark 
Crystal : premieres actions, look. 
east, get shale, west, west 
Trouver Ursu ; west. west, north, 
speak Ursu. look bowl, south, 
east. east. Poursuivre le |eu : 
north, dig. get (lute, north, east. 




appuyer bouton, n, appuyer bou- 
ton. n, s. o. changer cheque, 
non, e. prendre taxi, n, acheter 
billet, e. haul, bas, s. prendre 
taxi. n. e. regarder kiosque, 
acheter journal, parler mar- 
chand, prendre revue, voir du- 
rand. o. s. e. regarder buisson, 
(outlier cadavre, prendre tickets. 
e. e. e, bas, n, n. haut. e, n, 
acheter cigare. bas, pousser lit, 
prendre cles. haul, s. o. bas. n. 
n, haut. 0. 0. n. n, e, e. e, e, 
bas. n. n. haut. o. n. ouvrir 
porte, avec cles, n. n, ouvrir 
meuble, termer robinet, Ouvrir ti- 
roir, regarder liroir. prendre 
lampe. s, e. pousser tapis, ouvrir 
irappe. bas. allumer lampe. s. 
ouvrir meuble. avec cle. prendre 
tenaille, n. haut, o. haut. haut. o, 
s, casser chaine, avec tenaille, 
n, tourner bouddha. n 
Clic. 



north, listen brook, west, cut 
pad, east. east. east. east, 
north, north, use pad. north. 
east Sortir du piege et trouver 
Aughra : look, look, .look, look. 
speak being, yes, moon daugh- 
ters, north. Trouver le cryslal ; 
crystal shard, play flute, get 
blue, south. Echapper a rem- 
buscade : go window, soulh. 
west. Rencontre avec Kira : 
help, lum shell, get pouch, go 
shell, look. look. look. Echapper 
aux tueurs : south, south, west, 
north. Dans la caverne : sit 
down, look wall, north Rencon- 
tre avec les Landstnders : north. 
north, west, south Voyage avec 
les Landstnders : jump on, west, 
west. west. west, west, south, 
west, soulh. Fuite jump, grab 
Kira, west Entree dans le cha- 
teau : send Fizzgig. send bars, 
look, use key, open bars, south 



Couloirs du chaleau south, 
soulh. west. west, south, south 
Sortir du puits run, go hole, 
climb, east, south. Fuir . west, 
east, east, go curiam Reconsti* 
luer le cryslal : north, north, 
west, get scepter, east, east 
east, use hook, east, up. easl 
lump cryslal. no. insert shard 
kiss Kira... 
Clic. 

,. Mer Crabe Crevette. Amour 
Moule. Jalousie Pleurs Ven- 
geance Merlan, Hame 
Pppppiftffff. C'est partout pa- 
red... 
Clic. 

...la mineur. mi mineur, re mt- 
neur, mi, non. tu me tais un re 
septieme. la I Oui, c'est ca Et 
on reprend au la, mi, re sep- 
tieme et fa. 
Clic 

pas pourquoi aujourd hui. on 
peut le faire nimporte quand. 
Aucune raison pour qu'on le 
fasse aujourd'hui . 
Clic. 

... du Sweet Crackers Rennes 
On les oblient en composant le 
613 91 55, puis ' 176000695. 
sommaire. " 7ABONNE ", "DRT", 
"DEMO" Ce son! les trois mots 
de passe necessaires Pour le 
15900064502. le 17502059203 
(VTCOM). le 17506053201 
(Centre Mondial de hnformati- 
que>, le 177000841DBRS 
(GCAM) et le 1910006931 
(Circe), il sutfit de laper le nu- 
mero... 
Clic. 

. delais beaucoup plus longs 
que prevu, ce qui nous.. 
Clic 

etonnant alors que dhabi- 
tude, ils prennenl des pseudos 
comme "Great Crackers Band" 
ou "Best Elite Cracking", celui-ci 
a decide de s'appeler "Prout 
proul turlul tagada pouel pouet 
El qua-t-il craque ? Des ser- 
veurs mono-voie. sur Paris : 
Devil au 738 61 44. mot de 
passe V058BQL, Chamonix au 
523 53 60. Missive au 261 80 
76, le Cesta au 354 78 76 et 
Viatel au 722 54 03 Nous 
avons... 
Clic. 

s'appelle "Laisse au lemps le 
vent emporter tout" C'est. de 
Ires loin, le meilleur. 
Clic. 

..(in des emissions. Demam 
Clic 



DES PRIX TOUS PETITS 



Je vous les annonce loul de 
suite el je vous dis apres ce 
que ca concerne La cassette 
a 120 francs et la disquette a 
180 francs. Ca vous dit ? C'est 
pour Atari et Commodore, ca 
vous tente encore ? Okay 
alors sachez que ce sont les 
pnx pratiques par US Cold 
pour les logiciels suivants 
Pac Man. Dig Dug et Mister 
Do. Devant limmense nou 
veaute que representent ces 
logiciels. on peut s'etonner a 
juste litre du prix si bas 
Quand je pense que Pac Man 
(version piratee par une so- 
ciete italienne) sous le nom de 
Dots Man se vend a quarante 
francs tout mouille de chaud 
on peut se dire que Bally Mid- 



way, Namco el Datasoft ne se 
mouchent pas dans leur man- 
che quand il s'agit de deman- 
der des royalties sur leurs pro- 
duits. 




J'AI FAIT UN PETIT CALCUL 



Assez simple, qui ma permis 
de me rendre compte que la 
Vitesse de transfer! de I'infor- 
mation a partir dun disque 
laser oplique est de 250 Ko a 



U£Pfe<?UE 
POP' 




la seconde Enfonce, le disque 
dur Certains MSX (notamment 
le nouveau Pionneer) propo- 
sed en standard la connexion 
pour le lecleur laser Peu de 
programmes existent pour 
linslant sur le marche et tous 
sont aux Etats-Unis Mais on 
peut rever : vous vous voyez 
charger loute la memoire de 
votre micro en 2 dixiemes de 
seconde ? 



MINI MIR FAIT LE MAXI 



Je vous ai parte du petit robot 
(le MIR) coince entre deux 
cuves du surgenerateur de 
Creys-Malville II semblerait 
que celui-ci ait ete recupere 
cette semaine Dommage. A 
lui seul, il etait capable d'en- 
rayer ou de retarder la mise en 
marche du surgenerateur Ce 
robot devait etre un membre 
des Amis de la Terre ou de 
Greenpeace Apres un bon 
nettoyage et un lavage des cir- 
cuits, on va le remettre a la 
tache : verifier les soudures 
des cuves. 



AU0?tESAMiS(*U) 
MM CHEQUE. 




ATARI, VU DE LA FRANCE 



Bonsoir, les petits amis, c'est 
encore moi et je viens vous 
bassiner une fois de plus avec 
r Atari 

Depuis le temps que vous en 
entendez parler, vous devez 
etre impatients de le voir, de le 
toucher, de le caresser lascive- 
ment. de prendre sa tendre 
souris dans vos mains caileu- 
ses oui. oui, encore, vas-y. 
plus fort. 

Tout d'abord. conformement a 
la decision amencame de privi- 
lege la version 512 Ko. la 
version I2e n'a que peu de 
chances detranchir I'Atlantique. 
C'est done du 520 ST que 
nous heriterons. Pas de prix 
prevu : Atari France n'a pas 
recu destructions a ce sujet 
De plus, ils ne savent pas 
dans quelle configuration sera 
vendu lappareil. Rappelons 
qu'aux Etats-Unis. il sera 



vendu avec un momteur cou- 
leur et un lecteur de disquettes 
incorpore pour environ 1 000 
dollars {1000 dollars, au cours 
du change, ca fait pres de 
10.000 balles. Mais il est fort 
probable qu'il vaille au moms 
15.000 balles). Comble de 
I'horreur : il ne sera pas dans 
nos vertes vallees avant le 
quatrieme trimestre. Ca va 
Chauffer dur. I importation pa- 



ffcffHt'eW r»l'HUTE: 

tes iMpoFrflTeups 

En passant, le 130 XE (800 XL 
remodele, avec 128 Ko de 
Ram) sortira avant Juillet pour 

un prix inferieur a 2300 francs. 
Voila qui est un prix rationnel. 



US GOLD OU L'OR DUR 



Si le nom ne vous parail pas 
exlremement instructs . vous 
serez heureux d'apprendre 
qu'US veul dire Etals-Ums et 
que Gold veut dire Or Ce qui 
sous-entendrait que tous les 
nnid Hts commercialises par 



,'KMKHB9Y.'. 



US Gold sont fiables a 100%, 
que vous pouvez les acheter 
les yeux fermes. elc Mais il 
existe des exceptions a la 
regie En voici une Dough- 
boy doil son nom aux coura- 
geux combattants des tran- 
chees de 1 avant-dermere 
guerre. Vous vous trouvez 
done dans une tranchee et 
voire objectif est de conquenr 
celle qui vous fait face en eli- 
minant lensemble de ses oc- 
cupants. Pour un sujet original, 
e'en est un, mais pour ce qui 
est de la realisation, attention 
les yeux ! C'esl moche, pas 
beau et laid, sans parler de 
loubli total dune mise en 
condition sonore quand meme 
necessaire si Ion veut donner 
limpression de se irouver sur 
le champ de balaille Bref si 
vous aviez envie de vous I'of- 
frir, vous fenez mieux de le 
programmer vous-meme. 



PAS CHER MON FRERE 

C'esl le lecteur de disquettes /coOMUiErM j{ CANNES? 

Atari fonctionnant avec le 800 > i ??s S r C^ 

XL (et par la-meme avec le (2ooO ! looolj^. • 

130 XE) qui baisse et vient se 

positionner dans les prix les 

plus bas du marche : 2000 

francs ttc pour cette bestiole. 

Malheureusement les proble- 

mes de rapidite et de capacite 

ne sont pas resolus par cette 

modification gigantesque du 




prix (pres de cinquante pour 
cent !). Enfm. il vaut mieux voir 
ca que d'etre aveugle. 



CHECK-UP 



Ouelques infos techniques sur 
le nouvel (nouveau ?) Amstrad, 
le CPC 664. 

Le prix : 4490 balles avec un 
monfteur monochrome, 5990 
avec le meme en couleurs. 
II sera disponible en Mai. C'est 
sOr : pas le genre de la maison 
d'annoncer une becane deux 
ans avant quelle sorte. Mais 
en petite quantite, pas le genre 
de la maison d'inonder le mar- 
che. 

Une petite ex 
tension, en pas 
sant : le seconc 
lecteur de dis- 
quettes sera 
vendu a 1990 
francs. C'esl 
quasiment 
donne : le prix 
dun lecteur 3 
pouces netait 
jamais des 




PHICS PEN. GRAPHICS 
PAPER, TAG, MASK {deter- 
mine un motif de pointtlles) 
sont des instructions graphi- 
ques. Les instructions existant 
deja acceptent plus de para- 
metres qu'avant. 
COPYCHRS rehvoie le code 
ASCII dun caractere lu a 
1'ecran. FRAME permet de 
maitnser la synchronisation du 
balayage de lecran : c'est un 
joli gadgel CLEAR INPUT vide 
ie buffer clavier 
(quand meme ' 
lis se sont aper 
cus que e'etait 
qenanl!). CUR- 
SOR contrdle 
laffichage du 
cursor, pardon, 
du curseur. 
ON BREAK 
CONT 
permet de 



JHmHB fwl^K III 



cendu au-dessous de 2890 
francs 

Le basic est ameliore, dune 
facon si subtile que les logi- 
ciels du 464 sont compatibles 
avec son grand trere. 
Les instructions : FILL (remplit 
une surface fermee), GRA- 



proieger legerement un pro- 
gramme : celui-ci ignorera lap- 
pui sur la louche "ESC". Toute 
la gestion d'erreurs a ete re- 
faite, les routines d'edition et 
d'affichage num^rique aussi. 
C'est dommage qu'il soit aussi 
moche que I'autre. 



LES INFOS TELE ET LES PIEUX 



La tele francaise se refuse. 
mois apres mois, a se diversi- 
fier Les chaines privees soni 
pretes a envahir le reseau 
hertzien. mais la legislation est 
comme d'habitude en retard de 
trois revolutions technologi- 
ques Mais que font les etran- 
gers, se preparent-ils a nous 
bombarder leurs images a 
grands coups de satellites el 
de reseaux cables ? En loccu- 
rence Ted Turner, fondateur 
et propnetaire de la seule 
Chaine a diffuser des infos 24 
heures sur 24. la Cable News 
Network (CNN), se prepare a 
nous envahir par la tangente 
A partir de Janvier prochain. 



38.000 chambres d hotel disse- 
minees en Europe recevront a 
plem tube cathodique les pro- 
grammes de CNN, via le satel- 
lite Intelsat II va (aire bon etre 
couche en Janvier 




C'est nouveau, $a vient de sortir 



ON ARROSE 



C'est le 7 mai que sera officiei- 
lement inaugure I'ANNUAIRE 
ELECTRONIQUE Depuis 

quelques semaines, ce service 
est disponible au niveau natio- 
nal Les businessmen des PTT 
et quelques ministres vont 
done en profiler pour se taire 
sauter le standard a grands 
coups de champagne En fait. 
ce sonl les operatnees de sai- 
sie qui devraient trinquer. En 
effet. le fichier de t'annuaire re- 
presente plus de 26 millions 
d'enregislrements. (Approxima- 
tivement 500 kilos d'ongles 



casses. 324 litres de verms. 
500 000 migraines, 127 332 
tubes daspirine. 1214 conjoncti- 
vites doni 154 aigues). Le tout 
est accessible par les quel- 
ques 600 000 Minitels actuelle- 
ment en service. 




ALAP0INTEDUPR0GRES 



C'est Micro Application qui s'y 
trouve en proposant depuis le 
debut du Sicob Micro un ou- 
vrage general sur i Atari 520 
ST. Sont traites, bnevement 
mais avec soin, les caracteris- 
tiques du 68000, I'architecture 
du 520 ST, les interfaces. In- 
terface midi, I'interiace video, 
I'operating system, le CP M V 
30. le BIOS du ST, les mani- 
pulations a partir de la souris, 
le travail et la structure du 
GEM. le Logo (fourni en ROM 
en option, a la place du Basic) 



et les differents langages de 
programmation utilisables sur 
la bete Pour 129 francs, vous 
pouvez vous payer un voyage 
tranquiile sur la meilleure ma- 
chine de sa generation et 
avant sa sortie. Une premiere 




LE MEILLEUR 

JEU 
DU MONDE 



Hobbit. que tous ceux qui pos- 
sedenl un CBM, un One, un 
Spectrum ou un BBC doivenl 
connailre. va enfin etre adapte 
pour Apple Des problemes de 
droils a" adaptation et d exploi- 
tation pour les Etats-Unis ont 
empeche de realiser cetle 
adaptation plus tot. mais eiie 
devrait etre termmee d'ici deui 
mois. De quoi justifier lachat 
d'un Apple. Enfin une bonne 
raison. 

Stop ! Derniere minute : il va 
AUSSI etre adapte pour Ams- 
Irad et MRX Comme ca il n'y 



SPECTRUM 

48K 




d acheter un Apple 



LESGRENOUILLES MENA^EES 



Deux anglais viennent d'etre 
arreles pour contrefacon, faux 
et usage de faux lis setaient 
introduits dans de gros syste- 
mes grace au reseau Prestel 
(equivalent de notre videotex) 
et a un ordinateur couple a un 
modem, C'est la premiere fois 
qu'on assiste en Angleterre a 
une arrestation de cet ordre 
depuis que la loi sur le pira- 
tage informatique a ete votee 
en 1981. 
Les deux hommes ont pendant 




nyme The hacker's handbook" 
(petit guide du pirate) qui fait 



beaucoup parler de lui en ce 
moment : il va. selon les auto- 
rites britanniques. a lencontre 
de la securite en expliquant 
clairemenl comment pirater 
n'imporle quoi. 

Depuis quelle a appris ca. 
notre grenouille bidouilleuse 
s'est terree dans un coin en 
tremblant et en bavant, son re- 
gard brulant de fievre sursau- 
tant chaque fois qu une pane 
de chaussures noires entre 
dans son champ de vision. 



LA NUIT DES MORPIONS 



Alors la, bonjour le piege ! 
Comment ai-je pu croire un 
instant que cette soiree serait 
autre chose qu'un smistre ra- 
tage. Comment ai-je pu annon- 
cer "La nuit des puces" en 
pensant quelle pourrait vous 
interesser ? Pardon, pardon. 
excusez-moi de vous avoir 
peut etre empeche de dormir. 
empeche de programmer ou 
d'honorer votre compagne ou 
votre compagnon du moment. 
Vous I'avez vu, cette emission 
de TF1 soporifisee par Geor- 
ges Leclere a definitivement 
deshonore votre poste de tele 
samedi dernier. Elle n'etait re- 
gardable que par les mamans 
des protagonistes de remis- 
sion, mamans qui etaient peut- 
etre fieres de voir leur rejeton 
sur les ecrans magiques mais 
qui n'ont pas du le rester long- 
temps Comment peut-on dila- 



gatoire devront-ils continuer a 
casquer pour les projets nul- 
lards de TF1 et de TF01 sa li- 





fe roi debranche 

pider des millions de francs 
lourds dans des projets aussi 
chiants ? Les cochons de 
payeurs de la redevance obli- 



organisatrice des plus 
beaux ratages de rannee ? 
Les autorites televisuelles. 
hautes ou basses, sont-elles si 
impressionnees par laura de 
linformatique qu'elles ne sont 
pas capables de faire la diffe- 
rence entre une emission de 
tele normalement ininteres- 
sante et une nuit complete 
dinepties mercantiles ? C'est 
pourtant pas complique de 
s'apercevoir que Georges Le- 
clere et TF01 ne sont pas ca- 
pables de faire mieux que Pik 
et Poke et Colegram ou que 
Tify qui sont deja des monu- 
ments en matiere de taux 
d'ecoute faiblards, Pourquoi 
confier une nuit complete a 
ces equipes 7 II ne manque 
pas de vrais organisateurs et 
de vrais animateurs a la tele 
Mais peut-etre que Michel 
Chevalet ou Francois de Clo- 
set n'ont pas envie de sem- 
merder a faire des emissions 



pour des posies de television 
eteints ! 

Cecl dit, si vous avez vu 
remission, ne vous imaginez 
pas que les pseudo-branches 
qui y participaient se soient 
moins ennuyes que vous. Six 
collaborateurs de I'hebdo 
etaient presents, ils se sont 
autant amuses que pour I'en- 
terrement de Brejnev en diffu- 
sion integrate commente en 
russe par Zitrone. Le buffet 
etait mesquin et degueu. la 
biere de mauvaise qualite, le 
vin aigre et remission proba- 
ta ement encore plus penible 
de I'inlerieur. Heureusement 
que nous avons reussi a pi- 
quer la reserve de vouiski de 
Micro7 et que nous avions ap- 
porte un jeu de cartes, II n'y 
avail que Carali qui elan 
content parce qu'il a reussi a 
approcher Sapho (pas assez 
pres a son gout) 




La nuit des puces et des bran- 
ches ? Oui, mais les puces 
sont des morpions asthmati- 
ques mat branches sur un cou- 

rant negatif 



ZORRO, 
RENARD RUSE 



Apres les chevilles qui enflent. 
Goupil va se gonfler les bour- 
ses. La societe vient en effet 
d'etre admise dans le temple 
du business. Premiere opera- 
tion : augmentation du capita 1 
de 24 millions de francs lourds. 
Ensuite (si j'ai bien compris) 
les petits epargnants pourront 
acheter de Taction Goupil a 
140 balles piece, c'est donne. 
Sur la lancee. Goupil a an- 
nonce la sortie prochaine de 
sa nouvelle gamme dont le 



Goupil 4 qui sera compatible 
avec IBM. plein de fenetres 
(logiciel MS WIND de chez Mi- 




crosoft). Ca baigne pour le re- 
nard ruse qui va bientot faire 
sa loi. 



EDUCAT-HIPS 



C'esi Hatier, grace a ses logi- 
ciels educatifs. qui va embrin- 
guer nos cheies teles blondes 
sur la penle savonneuse du 
vice ' 




Non.. Les logiciels eux-memes 
ne sont pas en cause (normal 
on les attend pour les tester] 
mais le serveur Minitel sur le- 



quel on peul obtenir des infor- 
mations les concernant 
Composez le 614 91 66 el de- 
mandez te serveur DISCO 
Disco, c'est labreviation non 
pas de disco-music, mais de 
discounted En fait vous vous 
trouvez sur un serveur qui sert 
d abord a se bourrer la gueule 
24 heures sur 24 Ivous pouvez 
commander tous les vms et ai- 
cools que vous desirez. a n'im- 
porle quelle heure. a condition 
de payer par Carle Bleue) et 
accessoirement si vous avez le 
temps vous pouvez profiler du 
descriptif disponible sur cha- 
cun des |eux Hatier 
Enfin voila de linformalique 
educative bien concue : une 
lecon d'anglais, un gorgeon de 
picrate Merci Monsieur (ou 
Madame, on na pas ete pre- 
sents) Hatier 



EXEL 
JOURNAL 



Tous les constructeurs d'ordi- 
nateurs se sentent une ame de 
journaliste. il est de bon ton de 



EXCL^MW 




grand concours 



taire sa pelile revue Dimes- 
trielle des que les ventes de- 
passent 12 ordinateurs. Exelvi- 
sion n'echappe pas a la regie 
et voici le petit rejeton ne des 
amours dun EXL 100 et d'une^ 
rotative d'imprimerie. Le nu- 
mero un est assez bien fait 
avec des programmes, des 
cours d initiation au basic a 
deux niveaux, des trues et as- 
tuces et meme un concours 
pour gagner une imprimante. 
Exelvisionnaires. vous aviez 
deja votre club d'utilisateur. 
voila votre journal, avec les 
9.000 ordinateurs vendus a 
I'education nationale vous ne 
serez plus jamais seul, surtout 
si vous avez un modem 100 
francs I'abonnement annuel 



QUI A DEULIGNE DEULIGNERA 



Ah, comme le temps passe el comme les passions re- 
tombent Je vis le jour oil les deulignes se precipitaient 
sur nos freles ordinateurs comme la vague sur la co- 
quille de noix Mais aujourd'hui rien ne va plus ! Le 
temps passe, I'mteret trepasse... C'est la dure loi de la 
vie. 

Marc ZICH0 fait son possible pour vous detendre la re- 
tine, saurez-vous en profiter ? 



I Listing CANON 



t clb:imput--i**:fori-12toi7:forJ"7TOOST 

EP-1IP-POINTII, J) :u-3**(P«-l) .32IMP-0) 
2 'J-LiD»U-0i:w-i3*(J-0l :lphinici.oichhk 
-Ul »CMR«I-VI *CHR«(-WI I : next: NEXT :qotoi 



^r 



Listing ORIC 1 ATMOS 



Omar BELMOKTAR renonce definitivement a traverser la 
couche de brouillard et regarde les etoiies par ecran in- 
terpose. 



1 POKE 155, ^55 

2 PRINT ,- Fjir« LIST «t oter l* 
1i9t» 21845." 

Henri CHAR80NNEAU dumpe la memoire de son Thom- 
son en deuligne, fabuleux. prodigieux, unique ' 

y Listing THOMSON 

1 CLSiDEFSTF-. -,':• . = ■ " : M= "066" : INP'JT"t.dre 
; = e de d«but"Jft!F0RT=eT02*13!(i=HEX*<fl>tN 
=LEfTf 'M.4-LENI.N ■ ■ *W: PRI NTN*K- *»: : : FOR I = 0T 
D7!P=HE>!*'PEE» .im*I ) i:P=LEFT*Crt,2-LEN<P>> 
*d PRINTP+KJiNEXTf PR JNTK ; : F0RI=9T07:B=PE 
EK«h+I>sB«B-C46-8>»<(B IL - B I27>>!PRIN 
TCHRfi B '::NEXT 

2 riaHt-8:0="":0=INkEV»: IFO=*"THENME.-:TELSE 
END:' C« pr09ra>ae permet de lire la 
•Ckoire. II donne 1 ' adr esse, le contenu 
des octets en he»a et leur traduction en 

:lair. INPUT periaet ta saisie en ne-a 
'-■•■ SH65F9'. 



Ricfiard REYNAUO emporte la mer dans son micro, rien 
de tel a regarder avec un coquillage sur I'oreille un 
spectacle son et lumiere 

y Listing AMSTRAD 

1 CL8 1M» u.tf INK 1>24>IHK ^.t> INK 
3*1-02 FOK I=-635 TO I27S SIEP £ 
■ C«-£«tC«4>-3»tC«£J-4«C*3 ■ PLOT I 

,4«e.-C*tC(, s4 >-•■ C=4^H<tiU j^o, jtto 
l*fiW I.e NEXT LuCftlE J.lJpklNI "M 
ULTICOLORE" LUCflTE d6,\'i KR1N1 "EN 

MiJf E I 1 1 ! * ■ CrtLL a.bbyb 
Z FOR 1*1 Tu 40 INK 1*6 INI c.\ IN 
h 3*24 FOR J*l 10 /y NEXT INK l-l 
INK 2,24 INK 1,6 FOR J-l lu rt) NtX 
T INK 1,24 INK .:'.& INI 3-1 rOR J=l 

lu fid nt.. I NEXT L.HLL fcbbuc UUlU 2 



100 CALL CH«R(96. "1 ■') : : :; CALL SCREEN C 
lis FOR I»I TO 2B :: CALL SPRI TE («I . 96. 1 
.96. 1ZB.RND»40-18.RNDo40-18> : I NEXT 1 
110 CALL MAGNIFY! 1) : : FOR 1-1 TO 2B I : C 
ALL LOCATE (• I. B5. 120) : : NEXT I II CALL M 
AGNIFYiD:: K>RND*14*2 II FOR J-l TO 28 
■■ CALL COLORIKJ.KI : : NEXT J :i GOTO 110 



6 



Laurent CONSTANTY suit bnllament <a route tracee par 
son frere et vous offre une commande OLD qui vous 
permertra de ressuscitef un programme apres un reset 
Entrez le programme, faites LIST. SYS 50000. LIST et 
sauvegardez immediatement le rebuttal de I'opeTation 

y Listing COMMODORE 64 

B FORT-30a00TOT*23 rehdm poket , fl : NEXT NEW : 

DBTR169,8, 160, 1,143,43,32-51 
1 DATmT63, 163,34, 133,43, 133,47, 133, 4S, 163- 

33,133,46,133,48-133,50,96 



fr 



■A 



C'est le jour des frangms. puisque Regis PELTIER n'he- 
site pas a remporter la palme du programme de leche le 
mieux leche du mots ' 

y Listing APPLE 

10 HOME t FOR J » TO 24 i UTAS 
24: FOR 1 - TO 10) READ L< 
1)1 POKE 2017 • 1,L(1> - 128 
i NEXT i FOR I - 1 TO 24 - J 
i CALL - 91 2 l NEXT i RESTORE 
l NEXT i FOR 1 - I TO 21 1 CALL 
- 91 2 l NEXT 

30 DATA 134,133,130,132,143,133 
,137,131,137,133,140: UTAB 3 
: PRINT ' IT'S SO F 

INE " • 



Jean-Michel DOUCET declare le ler mai jour de lannee 
et fournit de quoi realiser n'imporle quel type de bande- 
roles, bandant non ' 



-fr * 



Suite au procham numero, salul ' 



HIPPO V~^ nouveau, <^ 
lOY^T / tir automa "'Que / 

C'est toujours japonais, c'est toujours costaud, mais, en 
plus, 9a a un autofire. Cast a dire que, si vous laissez un de 
vos dolgts appuye sur un des boutons, le tlr sera a repeti- 
tion, c'est pas beau 9a ? Pour le reste rlen de change : trois 
boutons de tlr, une bonne prise en main et quatre ventouses 
pour le coller definitivement sur la table de la salle a manger 
{super-pratique pour les repas !) Prise stantard pour Atari, 
Commodore 64, Vic 20. Compatible avec les interlaces 
Oric et Spectrum. Pour Apple, Thomson. Texas, Machbrd et 
Trucmuche, Tlntln : pa ne marehe pas ou alors II faudra bi- 
doulller. 

Ah, au fait, c'est plus cher que I'ancien, 120 belles ! De toute 
(aeon, de I'ancien il n'y en a plus alors... 
C'est bon, c'est pas trop cher ? Envoyez vos sous apres 
avoir rempll le bon de commande ci-joint. Le mlnlstre du 
commerce exterieur du Japon vous remercle blen bas. 


Wv 




^ 


ftftftftftftftft ft -to ft ft ft ft ft 
Bon de commande a decouper et a renvoyer a 
SHIFT EDITIONS, 27 rue du General Foy 75008 
PARIS. 








DATE: PU=J20F...jr... - „_F 

trais d" envoi = +15 F 

cheque joint : TOTAL = _ F 



HEBDOGICIEL SOFTWARE 

Le logiciel a sa juste valeur 

Les nouvelles boites jaunes sont arrivees ! Six logiciels francais de qualite par cassette et un prix raisonnable : des 
produits signes SHIFT EDITIONS ! 



VTo^™ 5 " 



L AVENTUHE SURORtC 



Unjeudavenlure cava Si* ieuid aventure. botijouf les nuits Blanches 'Vous al- 
I cz clevenir tour a tour e*plor ale jr. espion.egyptalogue.cosmonaute. super-he 
rosetvictimeducelebredocteurparanaud. Sivousarrlvezauboutdecessixcas- 
se-tfite sans problernes de sante el sans troubles mentaux. vous deviendre? 
sans contesteun des grands maitres mo ndiauxdujeud'aventure'Unecassette 
plelne a craquer pour 120 trancs 

Votre Oric utilise le langage machine pour reflechir et vous n'avez malneureuse- 
ment que votre cerveau humain pour le battre au Morpion ! Le "Laby 5" qui suit 
nest pas plus tacile cinq etages. des trappes partout et ses ascenseurs pas Ires 
tiables ! Dans "Oil leak", vous deve; reparer une voitureau beau milieu de gran- 
desflaques d'huile Les gouftres. les ravins et les precipices de "PonHevis* vont 
vous rendre fou < Le "Parsec" lonce a toute Vitesse et la "Guerre nucleaire*" esl 
tout simplement le premier grand Wargame pour One 120 francs la cassette 



'Dork crystal" est sans nul doute un 
ties plus beaux et rapides jeux 
ecrits pour T) 99 votre heros doit re- 
cuper er des fragments de cnstal dans 
le labyhnthe qui est le lieu a la mode 
pour tous les monstres branches de la 
galaxie ! Les aulres jeux sont tout aus- 
siefficaces unsuperbesauteursursa 
pyramide. un duel pour deux foueurs 
en armure, un casino avec 3 jeux de 
carles, une cent rale nucleaire et "Mis- 
sion penlleuse" qui vous transporter 
dans une jungle hostile en deux somp- 
tueux tableaux 120 francs les 6 jeux 
en basic etendu 



i , : |,-. 



••SOS*"" 



BASIC ETENDU 



•cpsatff 



Chantm Sp*c Kong 

SPECTRUM N-1 







Desjeuxd arcade a gogo changezle 
coursdel'histoirea Peart Harbour, gui 
de; Albert et Kong dans leur pyramide 
favorite, jouez a un jeu de balte en- 
Iierement nouveau, construisez 
d'enormes murs avec voire grue de 
chantier et regal ez -vous avec de la te- 
quila: plus vous en buvez. plus vous 
desamorcez tacilement les bombes 
de "Caramba"! Six super-program- 
mes pour 120 francs 

Deux jeux d'arcade ou vous sere* 
un courageux pompier, ou pilote 
d'unemotodecoursefonctionnantau 
langage machine Viennent ensuite la 
reflexion avec "Puzzle" et la slategie 
avec "Mineur" ou vous pourrez organi- 
ser des competitions jusqu'a 5 
joueurs L'aventureen(mavec'L*inca 
dor", un labuleux jeu graphique en 3 
dimensions 6 super-programmes 
pour 120 francs 
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ZX 81 N°1 



Des jeux. de lefectncite et du plaisir, 
voiladequoilairefretiller les electrons 
dans votre M05 et quand en plus ces 
jeux sont multiples etdouze vous envi- 
sagerez queiques nuits blanches 
d'Othello. de Poker, de Memo 7... Des 
que t'immobilite vous pa rait ra insup- 
portable, partez pour lespace pro- 
fond (Worp) ou retrouvez vos amis (ti- 
chter d'adresse) Vous verrez. vous 
n'encroirez pas plus vos yeux que vo- 
tre M05 n'en croira ses jeux • 

xV** + *¥-¥-*¥* + 
^ BON DE COMMANDE A REN- 
w VOTER A SHIFT EDITIONS, 27 
* rue du Gal Foy 75008 PARIS. 

Xr Nom/prSnom 

^ Adresse 



Xf Code postal _ 

* 
* 

* 



ORIC N° A 
ORIC N° 5 
SPECTRUM N" 1 
TEXAS N° 4 
ZX 81 N c 1 
M05N°1 



120F 
120F 
120 F. 
120F 
120F 
150 F 



-REGLEMENT JOINT OOF 



DEUX SUPER-CONCOURS PERMANENTS 

20 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE pour 2 
personnes en CALIFORNIE au meilleur logiciel du TRIMESTRE. 



Un concours de plusl 
Rlen de blen original dans 
cette formule, pourtant nous 
essayons de la ire quelque 
chose de different: nous orga- 
n I sons un concours perma- 
nent tous les mols et tous les 
trimestres! Et avec des prix 
dlgnes des programmes que 
vous sllez nous envoyer! 
De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preleres 
sur la grille recapitulative 
mensuelle. 

Pas de jury, pas de decision 
arbitrage, HEBDOGICIEL n'ln- 
tervenant que dans le cholx 
des programmes qui devront 
etre ORIGINAUX et FRAN- 
CAIS. SI votre programme 
nest pas tout a fait au point, 
un de nos speclallstes vous 
dlra comment I'amellorer pour 
pouvoir nous le proposer a 
nouveau. 

Pour participer, (I vous suffit 
de nous envoyer vos pro- 
grammes accompagnes du 
bon de participation ainsi que 
toutes les explications neces- 



saires a ('utilisation de ce pro- 
gramme. 
Bonne chancel 

Regie merit: 

ART i: HEBDOGICIEL organise 
de facon mensuelle et trimes- 
trielle un concours dote de prix 
recompensant le meilleur logiciel 
du mois et du trimestre. 
ART.2: Ce concours est ouvert 
a tout auteur de logiciel quelque 
soil le materiel sur lequel il est 
realise. L'envoi d'un logiciel en 
K7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL 
constitue lacte de candidature. 
ART-3: La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de loriginalite les logi- 
ciels qui sonl publics dans le 
journal. 

ART.4: Ce sonl les lecteurs qui, 
par leur vote, determinent les 
meilleurs logiciels mensuels et 
trimestriels. 

ART.5: Le prix alloue pour le 
concours mensuel sera remis au 
plus lard un mois apres la clo- 
ture du concours mensuel. 



Prenorr 
Age 



ART.6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la 
cloture du concours trimestriel. 
ART.7: Le present r6glement a 
ete depose chez Maitre Jauna- 
tre 1 rue des Halles 75001 
PARIS. 

ART.8: HEBDOGICIEL se re- 
serve le droit d'interrompre a 
tout moment le present 
concours en avisant les lecteurs 
un mois avant. 

ART.9: La participation au 
concours entraine lacceptation 
par les concurrents du present 
reglement. 

HEBDOGICIEL: 27 rue du Gal 
Foy 75008 PARIS. 

Sera declare gagnant le pro- 
gramme qui aura obtenu le 
plus fort pourcentage de vote 
par rapport a la totallte des 
programmes recus pour un 
me me ordlnateur. 
Ainsi, pas de favorltlsme pour 
les ordinateurs plus pulssants 
ou tres diffuses. 



BON DE PARTICIPATION 



N telephone 

Norn du programme 

Nom du materiel utilise 

declare etre I auteur de ce programme qui n est m une imitation ni une 
copie dun programme existant Ce piograrr.me resle ma propnete et 
j autonse HEBDOGICIEL a le publier La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obligatoire 

(signature des parents pour les mineurs) 

Le programme doil etre expedie sur support magnebque (cassette ou 
disquette) accompagne d'un descnplif detaille du materiel utilise. 
d'une notice d'utilisation du programme Les supports des program- 
mes publies sonl conserves, n oubhez done pas den fatre une copie 
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SUPER PAC 
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SOS INVASION 
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SOS GHOST 


ALOUEROUE 


HECTOR 


POKELPIUS 


GtOUP HECTOR 
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CHASSE 


ORIC 
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MARIO BROS 
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ZXB1 SERPEN1 
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FOOT BALL 
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TI 99/4A 
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BREAK DOWN 
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MSX 


EOITEUR 


EOITEUR 


BOMBY 


CHECK BOOK 



AUX URNES ! 



Abandonnez queiques instants 
vos claviers et prenez votre 
plus belle plume pour remplir 
le bulletin de vote ci-contre. La 
redaction d'hebdogiciel compte 
sur vous! 
La marehe a suivre est simple: 

- Reperez dans la grille ci- 
contre le programme pour le- 
quel vous voulez voter ainsi 
que celui pour lequel vous 
votez en second (le second 
nous permettra de rendre plus 
equitable la formule de choix 
du gagnant). 

- Reportez le nom de ces deux 
programmes sur le bulletin de 
vote. 

- Inscrivez vos nom et adresse 
sur le bulletin de vote 

A renvoyer avant le 17 Mai 1985 
a minuit a Hebdogiciel. 
concours mensuel, 27 rue du 
General Foy 75008 PARIS 
II est fort probable que ceux 
qui participenl au concours le- 
ront voter leur papa, leur 
maman, leur cousine et la Iota- 
lite de leurs amis et relations 
pour leur programme Normal! 
Mais comme chacun deux 
fera la meme chose, cela nest 



pas bien grave! Toutetois, tou- 
jours dans un souci d'equite, 
nous n'accepterons que les 



ORIGINAUX du BULLETIN de 
VOTE; pas de photocopies, 
cela seraii trop facile! 



Date Hmite d'envoi du bulletin de vote le Vendredi 
17 Mai a minuit. 



BULLETIN DE VOTE 



A renvoyer avant le 17 Mai a minuit a Hebdogiciel 
concours mensuel, 27 rue du General Foy 75008 
PARIS. 

JE VOTE POUR LE PROGRAMME SUIVANT: 
NOM DE L'ORDINATEUR: 

NOM DU PROGRAMME: 

JE CLASSE SECOND LE PROGRAMME SUI- 
VANT: 
NOM DE L'ORDINATEUR: 

NOM DU PROGRAMME: 

NOM ETPRENOM: 

ADRESSE: 




AMSTRAD 

Vends Amstrad CPC 464 cou 
leur, 4000 F. Etat neuf, garantie 
Patrick WATREMER. Tel 974 
10 25. 

Vends K7 de jeux originaux. 100 
F piece, pour Amstrad : Tennis 
Court, Hunchback. Flight Path 
737, Star Commando. Sorcery. 
Football Manager. Patrick 
GOMEZ. Tel : 822 30 24. 

Amstradamrstes cherchent 

contacts pour echanges de 
trues, logiciels de jeu ou utllitai- 
res. Ecnre a : Olivier GIRAUD. 
Le Mas de la CHERE. 38260 La 
Cote St ANDRE. 

Cherche possesseurs d'Amstrad 
pour echanger. vendre, acheter 
jeux et utllitaires. Emmanuel 
ANDRE, Route de la Montagne. 
Epagny. 74330 La Balme de Si- 
lingy. Tel : (50) 22 17 84. 

Cherche heureux possesseurs 
d'Amstrad pour echanges de 
programmes el Pokes ruses, a 
Pans ou banlleue Ouest. Marc : 
750 04 77. 

Vends pour Amstrad 4 logiciels 
de jeu : Codename Mat, Laser 
Warp, Sultan's Maze, Haunted 
Hedges 60 F chaque ou trois a 
150F. Laurent : (4) 454 14 05. 

Amstrad : contacts, echanges. 
Gerard CHAPPe : 308 55 77. 

Echange logiciels Amstrad (K7) : 
Moon Buggy, Punshy, House ot 
Usher. Flight Pilot... contre 
autres programmes (Assembleur 
Amsoft en particulien. Echange 
aussi tous trues et astuces sur 
L.M Laurent FOUBE, 14 Bd de 
Flandre, 62400 Bethune. Tel : 
(21) 01 04 83. 



AMSTRAD CPC 464 CHERCHE 
contacts uniquement sur region 
BRIE CONTE ROBERT pour 
echanger des logiciels (jeux et 
utilitaires). idees. des documents 
et des trues Jacques LEFE- 
VRE. 20 avenue du docteur 
Laennec 77170 BRIE CONTE 
ROBERT Tel 405 41 34. 

CHERCHE possesseur DAMS- 
TRAD CPC 464 pour echanger 
des programmes Frederic JAC- 
QUET. \e Hameau Des Plan- 
chettes" route de Valeille 42110 
FEURS 

VENDS AMSTRAD VERT ga- 
rantie 6 mois + livres : 2600 F. 
Tel: (32)-45 06 86 apres 19h. 

VENDS AMSTRAD CPC 464 
VERT + joystick + program- 
mes + imprimante Seikosha 
GP 100 + revues + livres. 
Christian BIZEUL. rue du Marais 
vivaise 02000 LAON. Tel : (23) 
79 49 73. 



Vends Atari 800 XL -t lecteur de 
K7 + Manette de jeu Atari + In- 
terface Peritel PVP 80 + Livre ; 
Connaitre le Basic Atari + jeu : 
Bristles. Valeur neuf 3800 F. 
Sous emballage dorigine : 1800 
F. Tel (3) 461 12 18 Materiel de 
Janvier 1985. 



APPLE 

CHERCHE programmes pour 
APPLE lie ou lie. Denis PO-" 
CHARD Cheppes la Prairie 
51240 LA CHAUSSEEMARNE. 
Tel: (16 26) 67 74 52. 

VENDS ou ECHANGE + de 
100 programmes pour APPLE 
lie, He, II. CHERCHE egalement 
correspondent. Frederic DU- 
FOUR 30 rue A Staincq 59610 
FOURNIES Tel : (27) 07 25 
apres 17h. 

VENDS Apple He + moniteur 
couleur 4- Joystick (tous garan- 
tis) + livres ("les ressources de 
I' Apple "c", "Ciets pour I'Apple 
/C). Valeur 15500 Francs, prix - 
demande : 12000 francs a de- 
base Tel : (1) 666 60 39 

VENDS logiciels de jeu dorigine 
pour Macintosh avec factures 
d achat a 50% de leur valeur : 
Pierre molle, Reversi, Alice sur 
lechiquter, Macflush, Macattack. 
Philip MACKINNEY. 127 rue de 
la faisanderie, 75116 Paris. Tel : 
(1) 503 01 48. soir et week- 
ends. 

ATARI 

Vends Atari 2600 + manertes + 
11 K7: 750 F. Eric: (6) 430 15 



COMMODORE 

VENDS COM 64 (sous garantie) 
+ lecteur de K7 + (oystiek 
Spectravideo + introduction au 
basic (livre + 2 cassettes) + 60 
jeux 4000 F, Tel : 576 77 73. 

CHERCHE The Mask of the Sun 
pour COM 64 a echanger contre 
The Dallas Quest ou The Seven 
Cities of Gold ou Summer 
Games el VENDS autres |eux ; 
Choplifter, Jumpman, Pitfall 1 et 
2 : 50 F piece. Ultima 2, Grand 
Master etc.. . 150 F. piece. 
Serge DURAND Les Alisiers 
1338 BALLAIGUES SUISSE 

VENDS COM 64 + drive 1541 
+ moniteur + lect K7 + nom- 
breux jeux utilitaires + livres t 
poignees : 7000 F Tel : (20) 84 
35 97 

VENDS pour COM 64 magneto 
1530 au plus offrant. Tel (61) 
64 30 05. 

COMMODORISTE ECHANGE 
astuces. idees. programmes. 
Pierre KIRSCH. 6 rue du village 
6798 AUBANGE BELGIOUE 

VENDS ou ECHANGE pour 
COM 64 programmes de jeux 
ou utilitaires sur disk ou cas- 
sette. Tel : 381 52 58 apres 19h 

ACHETE lecteur de disquelte 
• VIC1541 pour COM 64 2000 F 
maximum. ECHANGE 600 pro- 
grammes sur K7 Pierre BOU- 
TAVANT. 7 rue de Verdun Cou- 
Chey 21160 MARSANNAY LA 
COTE. Tel : (80) 52 22 69 apres 
18h30. 

VENDS COM 64 PAL + drive 
1541 + 1530 + imprimante 
MPS 801 + livres + nombreux 
jeux + joysticks . J.C. ROULIE. 
131 rue des Bas 92600 ASNIE- 
RES. Tel : 799 22 60. 

CHERCHE possesseur COM 64 
pour echange didees et de pro- 
grammes sur K7 uniquement. 
Michel PAUL 3 chemin des Oi- 
seauxd 4880 SPA BELGIOUE 



CHERCHE lecteur de K7 pour 
COM 64: 150 F maximum + 
logiciels. Pascal MARTIN 120 B 
rue des Pyrenees 75020 PARIS 

VENDS COM 64 + prise peritel 
+ datasette 1530 + 100 jeux 
commerciaux en LM + 3 livres : 
3000 F. Bruno BARDIN. 88 rue 
du Docteur Charco 421 00 
SAINT ETIENNE Tel : (77) 57 
24 56 apres 20h 

VENDS COM 64 ^ magneto + 
8 K7 + 1 |Oystick * 2 livres et 
divers HEBDOGICIELS : 2700 
F. Annie RASSENEUR 16 20 
rue des Fiacres 59650 VILLE- 
NEUVE D'ASCO. Tel : 04 66 44 
apres 20h. 

Cherche possesseurs de 
Commodore 64 pour echanger, 
vendre ou acheter jeux et utilitai- 
res. Michel BROISIN, 11 alloc 
du Pare les Ervues. 74300 
Cluses. Tel : (50) 98 41 84. 

Vends Commodore 64 RVB + 
Drive 1541 + magneto + nom- 
breux logiciels originaux (dans 
leur emballage) + joysticks 
(Atari, Quick Shot II) + bou- 
quins : 7000 F. a debattre. Co- 
rinne : (1) 346 18 61 

Vends Commodore 64 + lecteur 
de K7 (les deux, valeur : 3000 
F.) + documentations + livres 
+ 120 logiciels (valeur 16000 
F.). Prix : 7000 F. Jean Lionel 
LEHMANN, 1 place de 1 Eghse, 
67300 SHILTIGHEIM. 

VENDS ou ECHANGE program- 
mes de jeux ou utilitaires pour 
COM 64 Laurent LECOMTE 16 
avenue Jean Leger 74500 
EVIAN Tel : (16 50)75 23 24 



VENDS HECTOR HRX 64K 
Forth + Basic IIIX + assem- 
bler Forth : 3700 F Jean Louis 

THOMAS 15 rue du docteur 
Oenoyelle 37000 TOURS Tel 
(47) 66 52 96 

VENDS HECTOR BR 16K 4 1 
cassette basic + 2 cassettes de 
jeux (Grenouille el Envahis- 
seurs) + livre de basic pour 
HECTOR * 2 joysticks : 3000 F 
Ludovic OLIVER 21 rue Theo- 
phile Harraull 49170 ST GEOR- 
GES S LOIRE Tel : (41) 39 15 
73. 

VENDS HECTOR 2HH + 16 
cassettes de jeux * livre + ap- 
prentissage basic par cassette 
+ 2 joysticks neufs. M GUILLE- 
MIN. 231 rue de la Vigne 80260 
FLESSELLES Tel: (16 22) 93 
74 26 le soir aux heures de 
repas. 



VENDS HECTOR Ires peu servi 
h cassettes de jeux et program- 
mes : 3500 F. Tel : (47) 64 55 
37. 

VENDS HECTOR 2 HR : 2800 
F. + jeux sur cassettes Barou- 
deur : 70 F. + Base spatiale 
50 F. + Galaxius : 70 F. + For- 
mule 1 : 70 F ou le tout : 2990 
F. Claude BRANCOURT 7 rue 
Jacques Monod 59360 LE CO- 
TEAUTel :~77 83 61. " 

VENDS HECTOR 2HR 48K + 
peritel + 12 logiciels : 5800 F. 
Tel : (84) 56 31 59 apres 18h. 



Je vends 14 K7 originales (ja- 
quettes, modes d'emploi, boitier) 
el 11 copies superbes, tout cela 
dans 2 pratiques mallettes de 
transport avec 6 livres et 60 lis- 
tings divers. Mise a prix : 2000 
F. En PRIME a I'heureux ache- 
teur du lot : 1 One 1 + cordons 
+ Prise et alim Peritel + Ma- 
gneto + Transtormateurs. Excel- 
lent etat. emballage dorigine. 
Jean-Louis ROUCHY : 985 00 
43 (apres 18h). 

Vends imprimante 4 couleurs 
pour Oric + Cables + Manuel + 
Garantie 6 mois + Papier en 
rouleau : 1600 F. Vends aussi 
adaptateur N et B pour Oric : 
100F. Joystick Quick Shot I : 
100 F. Philippe : (56)85 26 37. 



ORIC 

Vends Atmos + Peritel + Ali- 
mentation + Bloc d'alimentation 
+ Cordon magneto + Adapta- 
teur UHF + 11 K7 + livres : 
3000 F Raoul S1GNORET, 27 
Mas Castel, 34570 VAILHAU- 
QUES. Tel : (67) 55 47 97. 

Cherche contacts sur la region 
parisienne pour echange de lo- 
giciels sur Atmos. Cherche aussi 
ecran couleur ou TV pour moins 
de 1000 F. D. DEGRE. 15 ave- 
nue Gambetta, 92410 VILLE 
D'AVRAY Tel:(1) 709 39 35. 

Vends Atmos 48 Ko (garanti 6 
mois) + 6 K7 de jeu (Aigle dor, 
Hobbit...) + livres + documenta- 
tion + divers listings + cordon 
Peritel + alimentation: 1800 F 
Magneto K7 Hermes : 200 F. 
Calculette Tl 58 C (avec docs, 
module general, listings) + 
Chargeur d'accus : 350 F. Oli- 
vier BERCOVITZ, 4 ave Courte- 
line, 75012 PARIS. Tel : 345 20 
85 

Vends Oric Atmos (1 an) + In- 
terface manette programmable 
+ manette (Quick Shot II) + 
synthe parole + cable telecom- 
mande magneto + Interface 
CGV (tele sans Peritel) + Theo- 
ric (4) + 3 livres + 2360 F. de 
iogtciels (B.A.BA pour ORIC). 
Valeur plus de 7000 F. Vendu 
4490 F. Stephane MAUCON- 
DUIT. 2 ave Corneille. 76380 
CANTELEU. Tel : (35) 36 11 78. 



TEXAS 



VENDS extension memoire 32 
Ko pour Tl 99 (etat neuf) : 1100 
francs. Guillaume FORTIN, 12 
passage Cottin, 75018 Paris. 
Tel: 255 60 04 apres 16h40. 
(NDLMC : 16h39?je peux pas ! ) 



THOMSON 

Vends M05 sous garantie + 
lecteur enregistreur de K7 + 2 
livres + manettes de jeu f 
nombreux jeux (Airbus). Remise 
15 %. Tel (heures de repas) : 
(84) 33 07 93. 

Vends Thomson M05. cause 
double emploi. neuf (avril 85) : 
1800 F. a debattre. Tel : (6) 457 
50 40 (apres 20 h) 

Vends T07 avec prise Peritel 
Moniteur + Cartouche Basic 
memo 7 + Magneto + 14 livres 
+ logiciels + K7 + revues + 
programmes ; 2200 F. Eric : (6) 
430 15 01. 

Vends pour T07. TO7-70, a 50 
F. piece : Trotf, Zaptrak, Tirail- 
leur. Tel : 404 03 06 (apres 
19h). 

Vends region Moulins : T07 + 
Basic + Pictor + Magneto + 

Transfo + Bouquin de reference 
+ nombreux programmes + 
Bidul. Roger et Paulo, Pingo. 
Poker, Pulsarll : 3400 F. Denis 
LAFONT : (70) 46 21 23. 



GAG?... NON... PUB! 




MSX CANON V70« 1 m !»' 

WNHMANTE MSX CANON IWF 

COMMODORE 64 FAl - 1 m. 1M0F 

COMMOOOK M PfBTU • I feu IMOF 

FLOPPY DfSKlHI 2 SWF 
AM5TBAD CPC 4M 

• momieur «wt • 3 pn> IrKt 

• momteur couleun • 3 «u* 4 490 F 



MONTEURZEMTH 

M0NTEUR COULEUR FIHIY CMtt IMF 

MAGWT0 OKDNAIEURS 

WSQUETTtiS PAR 10 

QUCKSH0! II 

CONSOLE CBS I IMF 

JOYSTICK UGH SCORE 

- ATA1H SPECTRUM. ORIC, Eic 



0UVERT DU MARDI 
AUSAMEDI MWhAin 



89 bis, rue de Churenlon 75013 PARIS 

lei 342BJJ 
metro : gore de Lyon et ledm-Rollm 



BLANC BERNARD 

JNFORMRTIQUE BUREA UTIQUE LYON 



AMSTRAD - SINCLAIR - ORIC 

SHARP - THOMSON - SANYO 

LEANORD - LOGYSTEM 



9, rue Salomon Reinach. 69007 Lyon 
Tel. : (7) 872.25.48 (pres facultes) 

ASSISTANCE TECHNIQUE - LOCICIEL - FORMATION 



VIDE * SHOP 



L'espace le plus micro de Paris 

VIDEO SHOP, e'est le plus grand choix de 

logiciels au rrf. C'est aussi de tres nombreuses 

marques : 

- ATARI - LANSAY - COMMODORE 

- AMSTRAD - MSX - THOMSON 

- SINCLAIR - ADAM - EXELVISI0N 

Passez nous voir nombreux A LA FOIRE DE 
PARIS STAND 2L26 , nous VOUS y attentions 
jusqu'au 8 mai. 

50, me de Richelieu 75001 PARIS. 29633.95 
251, bd Raspail 75014 PARIS. 



VISMO 



Vente informatique service micro ordinateurs 

ORIC. SINCLAIR. AMSTRAD 

Moniteurs couleur et N/B. 

Tous peripheriques 

ASSEMBLEUR MONAMS 
Recommande par Hebdogiciel 

VISMO SERA PRESENT A LA FOIRE DE PARIS 

du 27 avril au 8 mai 1985 

BAT. II niveau 2. stand K20 

Venez vile chercher votre carte d'invitation a I'un 
de nos magasms. 

84. bd Beaumarchais 75011 PARIS 12. bd de Keuilly 75012 PARIS 
338.60.00 



VIDEO 107 INFORMATIQUE 

♦ ♦ ♦ ♦ ♦ 

PLACE DES FETES 
75019 PARIS 

SINCLAIR QL 5 490 F 

SPECTRUM + 1 900 F 

CBM64 + Lect. K7 2 990 F 
ORIC ATMOS 1 690 F 

AMSTRAD VERT 2 990 F 

Tel. : 201.22.34 - 201.46.09 




Gl 

le temple d AMSTRAD 

Inities d'HEBDOGICIEL, venez. en pelennage, 
visiter le plus fabuleux monument consacre a 
AMSTRAD en France. 



CADEAU DE BIENVENUE 

a tous les fideles mums de cette annonc 



1 0, boulevard de Strasbourg 
75010 Paris S 206.50.50 



Heures de culte : 9 h 45 a 13 heures - 14 a 19 heures 
tous les jours sauf dimanche 




T07, T07 70, M05 

Je vends un magnifique M05 
avec magneto + Crayon optique 
+ Manuel + Basic M05 et T07- 
70 + 42 programmes de jeu + 
Pulsar It + Eliminator + La 
course aux lettres L ensemble 
garanti pour 10 mois (l an pour 
le crayon et le magneto). On 
discute a parltr de 3400 F. CPL 
Luis FOGUETE, 1 RE, CAPLE 
SAl, Quartier Vienol, 13400 AU- 
BAGNE 

Vends T07 + magneto + Baste 
+ Pictor + Trap + ext Jeux + 2 
K7 + livres : 2000 F Claude LE 
STRAT. 25 rue du Fortin, 78180 
Montigny Le Bretonneux, Tel 
044 04 55. 

Vends Memo 7 Tndi 444" (450 
F.) cede 250 F Sebastien 
PIERRON, Lotissemnt St Char- 
les, 54120 BACCARAT, Tel ; (8) 
375 20 01. 



SPECTRUM 

Vends Spectrum 48 Ko Peritel 
♦■ Imprimanle Alphacom 32 + 
Interface ZX2 (sous garantie) + 
Joystick Quick Shot + Magneto 
Mondivox FX 327 (sous garan- 
tie) + K7 ; Demo horizons, 
maths, direction linanciere + 
nombreux livres, revues, catalo- 
gues + 30 HHHebdos. Tout en 
tres bon etat : 4500 F, Tel : des 
18 h 30 au (61) 66 25 56. 

Vends Spectrum + Peritel + In- 
terface manettes + jeux : 1800 
F Tel 575 83 07 0U 791 47 71 



Vends ZX Spectrum "+ " 48 Ko 

Peritel : 1700 F. Microdrive f 
Interface ZX 1 + Interface Joys- 
ticks + Traitement de Textes 
1200 F. Nombreux livres, K7 
jeux et utilitaires. Tel: 330 16 
66. 

Echange de jeux pour Spectrum 
16 et 48 Ko et pour Atari 600 et 
800 XL. Liste sur demande, re- 
ponse assuree Regis MADEC. 
1 rue Solfenno, 29200 BREST, 
tel (98) 44 07 40 



VENDS logiciels : Avenger : 50 
F. + Scramble : 40 F. Tel : 726 
50 63. 

VENDS ou ECHANGE nom- 
breux programmes Basic et LM 
+ Cartouches Super Expander 
et Programmer's aid : 150F. 
Piece. Patrick GOUIN. "Carre- 
lour de la Chatte" 73140 PEZE 
LE ROBERT Tel : (43) 20 22 
60 

VENDS VIC 20 + magneto + 
16 KO + revues + synthetiseur 
de voix ' cartouches Atari + 8 
K7 de logiciels + 50 program- 
mes a taper * 4 cassettes 
tapees (programmes d'HEBDO- 
GIC1EL) : 2500 F a debattre. 
Jean Michel DASSAC. 92260 
FONTENAY AUX ROSES. 

VENDS- VIC 20 ■+ lecteur de 
cassettes + transformaleur + 
auto formation au basic + 2 K7 
+ livres + nombreux jeux + Si- 
dewinder et autres + extension 
16 K + joystick: 3500 F Tel: 
914 76 03 demander Robert. 

Vends Vic 20 (secam) + 32 Ko 
+ Super Expander + Lecteur de 
K7 + Bouqums : 2000 F. Tel 
782 83 64, Jean-Mane. 



ZX81 

Achete pour ZX81 carte HGR. 
Vends programmes : Stock-car, 
Scramble. 3D Formule 1... Tel: 
(61) 39 92 84 



VENDS ZX 81 t clavier meca- 
nique + memoire 16 KO + 6 lo- 
giciels (jeux) + branchements 
TV et magneto + livre "ZX 81 
basic Cours de Programma- 
ttofl": 1250 F. Tel: 726 57 14 
demander Ludovic apres I9h. 

CHERCHE pour ZX 81 program- 
mes, idees, astuces, contacts. 
M. VAUTRAVERS. 8 rue Au- 
guste Laurent 52200 LANGRES. 
Tel : (25) 85 21 93 apres 19h30 

VENDS ZX 81 + carte memoire 
16 K + carte de haute resolu- 
tion graphique + transformateur 
+ logiciels de jeux + logiciel 
"Fast Load" + nombreux listings 
+ livres de programmes: 1700 
F. Tel : (61) 09 61 79 demander 
Jean Marc 

VENDS ZX 8t + extension 16 
KO + clavier ABS + alimenta- 
tion + 2 K7 de jeux + manuel 
en francais +■ livres de program- 
mation : 850 F. Tel : (50) 49 12 
22 apres 18h demander Satoshi 

VENDS ZX 81 + 2 K7 (Echec et 
Simulateur de vol) + livres 700 
F Possibility d'echange contre 
une imprimante compatible 
AMSTRAD Tel : 278 50 18 le 
soir. 

VENDS ZX 81 + 16 K + clavier 
ASS : 750 F + TV. NB porta- 
tive 31 cm Radiola : 600 F + 
lecteur de K7 Thomson : 300 F. 
Guy MALET. BP 29 94267 
FRESNES cedex, 

Vends ZX81 + 16 Ko + Clavier 
ABS + Manuel francais + 2 K7 
de jeu + 1 livre de programma- 
tion + 8 Ordi 5 + 4 HHHebdos 
(tout en tres bon etat) : 800 F. a 
debattre Satoshi KURODA : 
(50)49 12 22 (apres 18h). 

Vends ZX81 + 16 Ko + cinq K7 
+ nombreux programmes + 
livre sur ZX81 : 850 F Herve 
DA COSTA 15 rue de The- 
rouane. 62430 Sallaumines. 
Tel: (21) 78 90 18. 

Vends ZX81 + 16 Ko + Clavier 

ABS + Alimentation + 5 logi- 
ciels + nombreux programmes 
et revues : 800 F. Patrice LAN- 
CELOT. 30 rue TARTINOIS, 
91820 Boutigny sur Essonne 



DIVERS 

VENDS JET 25 RADIOLA t 1 
manette - 14 jeux : 500 F. Tel : 
(99) 33 12 38 Demander Olivier 
apres 17h 

ACHETE vos anciens numeros 
dHEBDOGICIEL el de Theo- 
phile a pnx redui! CHERCHE 
correspondant possedant ordi- 
nateur Thomson pour echange 
d'idees et de programmes Syl- 
vam SIMON 64 rue JJ Rous- 
seau 21000 DIJON Tel (80) 74 
24 70 le soir. 

VENDS DRAGON 32 K couleur 

+ Peritel + UHF + manettes + 
100 programmes + magneto + 
livres 2500 F Tel : (37) 21 51 
69 

ACHETE Micro 7 n 4 U 25 et 
HEBDOGICIEL n" 1 a 65 Bruno 
DA COSTA. 19 allee de la Prai- 
rie 77490 CHELLES LES COU- 
DREAUX. Tel 020 52 18. 

VENDS HP 1 1 C 500 F. Tel : 

965 28 68 apres 17h 

VENDS HP 41 C 1100 F + 
lecteur cart. + 68 cart. : 900 F. 
+ 4 extensions memoire 200 F. 
+ module Math : 200 F. + Mo- 
dule Finance ; 300 F + Module 
jeu : 200 F. + nombreux livres 
gratuits, Tel : 365 02 58 

ACHETE carte graphique 
QUICKSILVA ou echange contre 
les logiciels. Michel POULAIN. 
23 rue du Dr Potain 75019 
PARIS. Tel : 206 92 25. 

VENDS CBS + 9 K7 + DONNE 
a I'acheteur un ZX 81 + exten- 
sion 16 KO + clavier ABS + 
programmes + livres + 12 tilt + 

2 softs du commerce : 3500 F. 
Tel : (16 61)76 23 37. 

VENDS MATTEL + 8 casset- 
tes . 1 100 F. Tel : 834 09 77 de- 
mander Bruno. 

RECHERCHE HEBDOGICIEL 
du n* 1 au 56 a acheter ou a 
echanger contre Programmes, 
ou menue monnaie ou docu- 
mentation sur CBM 64. Laurent 
SZWARC. L'Aunay 60850 ST 
GERMAIN DE FLY 



ECHANGE console CBS elec- 
tronique avec 9 K7 contre un 
lecteur de disquettes pour 
COMMODORE 64 Tel : 095 99 
99 aux heures de bureau 

VENDS ADAM CBS (S0K) + im- 
primante 4 traitement de texte 
+ digital data drive + K7 basic 
applesoft + 1 K7 vierge forma- 
lee + console Colecovision 
3600 FF. ou 25000 FB. Patrick 
TASSET. 14 rue de la Vallee 
4498 BASSENGE BELGIQUE 
Tel : 041 86 24 45. 

VENDS DRAGON 32 peritel + 
unite de disks + potgnees de 
jeux + livres + magneto - 
nombreux programmes sur disk 
et K7 : 5200 F Tel : 006 42 83 
le soir et le week-end. 

VENDS mini Orgue eiectronique 
type CASIO PT 20 29 touches 
monophoniques. 7 sons prere- 
gles, 1 7 rythmes. 9 accords, 
fonction execution avec me- 
moire (508 pas) maximum : 600 
F Tel : 594 49 38 demander 
Thierry. 

CHERCHE genereux donnateur 
dordinateurs de poche (Casio, 
Sharp, Canon X07) pour jeunes 
voulant creer un club. Accepte 
ordinateur meme en panne. 
Jean ARCHAMBEAU. Chaussee 
de Rochefort 19 5406 MAR- 
LOIE BELGIQUE. 

ACHETE HEBDOGICIEL n" 9 a 
28 et n° 46: 100 F maximum 
Luis GODINHO. 149 rue de la 
Republique 39400 MOREZ. 

VENDS revues informatiques a 

50 % du prix d'achat (Hebdogi- 
ciel, Micro 7, L'oi, Vo, Svm. 
Basic Pius, Abe etc. ..) + le tout 
micro 84/85 a 70 F. Fabrice 
PAGE. 5 sente de la Brenne 
78310 MAUREPAS. Tel : (16 3) 

051 53 58. 

VENDS LASER 200 + couleur 
+ son + branchement sur an- 
tenne TV.' + extension 16 K + 
magneto K7 + diverses revues 
et cassettes de jeu ou d'initia- 
tion. Jacques MUYARD. 25 rue 
des Vennes 39200 SAINT 
CLAUDE. Tel : (84) 45 36 08 ou 
45 11 00 aux heures de bureau 



CHERCHE emetteur recepteur 
44 canaux portable genre Talki- 
walkyavec chargeur en bon etat 
Franck HERAN 24 residence 
les Sorbiers 14610 COLOMBY 
SUR THAON 

VENDS CBS coleco + cartou- 
che Donkey Kong 950 F, + 
module Turbo : 400 F. + cartou- 
che River raid : 200 F + Don- 
key kong JR 250 F. + adapta- 
leur cartouche ATARI : 400 F + 
Pitfall: 150 F . + Pitfall 2 250 
F. + boite de rangement cartou- 
ches : 60 F ou le tout 2500 F 
Laurent TONINELLO 9 rue du 
Puit de la Chaine 72000 LE 
MANS. 

VENDS VG 5000 + lecteur de 
cassettes + 1 livre "102 pro- 
grammes pour VG 5000" + 6 lo- 
giciels : 1800 F Claude FEDE. 
Chemin des Eyssarrettes 13122 
VENTABREN. Tel : (42) 28 76 
64. 

ETUDIANT fauche CHERCHE 

genereux donnateur ou vendeur 
pour un pnx minime de CANON 
X07. PC 1500, PB 700, ou tout 
autre portable Rembourse frais 
d'envoi. M. TALARD. 3 place du 
Chatelet 71100 CHALON SUR 
SOANE. 

VENDS LASER 200 + exten- 
sion 16 K + K7 nombreux pro- 
grammes + revue "laser info" + 
2 livres : "Jouez au laser". "Les 
mysteres du laser" : 1450 F. ou 
ECHANGE contre un CANON 
X07 ou un ZX 81 + 16K. Gre- 
goire HUMBLOT. 41 rue de la 
Charletterie 86000 POITIERS. 

CHERCHE programmes HEB- 

DOGICIELS N e 1 a 15- Bruno 
MERCIER. Champmilan 8t X n" 
544 03000 MOULINS. 

ACHETE vieiiles calculatnces en 
bon etat et a bon prix. Rembour- 
sement des frais de transport. 
Tel: (20) 95 00 13. 

VENDS VIDEOPAC JET 47 + 

joysticks + basic + Echecs + 
Course de voiture + Bataille de 
lespace + Space monter + La- 
byrinthe + Concours de sauts + 
Pacman 1 et 2 : 3000 F Tel : 
(20) 95 00 13 




PAS CRAIGNOS...LECHOIX 

Laissez les autres courir dans fous les sens, 500 programmes en stock, ce n'est pas courant... 



THOMSON T07-(T07/M05 si) L 



D Coffret T07-70 {Unit6 centrale + Basic + LEP + livre du T07) . 
DCoftret M05 (Unite centrale + LEP + Livre : Tout sur le M05) 



4.450 F 
2.950 F 



Dll I'intrus (C) 120 F 

□ Pouspan (C) 85 F 

OLogicod (K) 225 F 

P Gemini (K| 225 F 

DTroff (C) - 120 F 

OAible d'or (TO7-70/M05) (C) 

200 F 

D Thesaurus (C) 190 F 

COMMODORE 64 I 



DMeteo7 (C) - 150 F 

□ Monte-Carlo (C) - 95 F 

OMurflips (C) 50 F 

D 6 jeux d'action (C) 95 F 

D 4 jeux d'action (C) 95 F 

D Androides (C) 190 F 

D F.B.I. (C) 190 F 



□ Cotlret C 64 (Unite centrale - 



~ I 

Lecteur cassette -r Moniteur couleur 36 cm) 

5.990 F 

D Cybotran (C) 95 F 

D Flight Path 737 (C) 95 F 

D Gyropod (C) 95 F 

O Dig Dug (K) 180 F 

D Jungle hunt (K) 160 F 

DGalaxian (K) 140 F 

D Gateway to Apshai (K) . . . . 390 F 



D Ghostbusters (C) 150 F 

Q Mandragore (Cj 350 F 

□ Decathlon (C) 120 F 

OVega (C) 150 F 

D Zodiac (C) 95 F 

D Hexpert (C) 95 F 

D Moon Buggy (C> 95 F 

ATARI 600 - (800 XL si ) 

D Coffret 600 XL (Unite centrale + Lecteur cassette + Moniteur couleur) 
4.490 F 



□ Coffret 800 XL (Unite centrale + Lecteur cassette + Moniteur couleur) 
4.890 F 



Q Shoutout at the galaxy (C) 

200 F 

D Bomber attack (C) 180 F 

□ Tank arcade (C) 200 F 

O B1 Nuclear Bomber (C) ... 180 F 

D Voyager 1 (C) 220 F 

D Des chitfres et des lettres (K) 

280 F 



COLECOVISION L 



□ Coffret ADAM (Console colecovision 



D Stroumpfs (K) 300 F 

O Miner 2049 (K) 330 F 

SANYO MSX 



D River raid (K) 320 F 

□ Valdez (C)' 120 F 

Q Rings of the Empire (C) . . 120 F 

a Enconter (C) - 280 F 

D Necromancer (Q* 280 F 

D Galaxy (C) 200 F 

D Pole position (C) - 120 F 

: i 

f- ordinateur + imprimante) 

. 4.970 F 

D Buck Rogers (K) 330 F 

D Hero (K) 295 F 



D Cotfret SANYO PHC 

Msx r- 

D Super Cobra (K) 300 F 

D Super Snake (K) 300 F 

PHILIPS VG 5000 I 

D Monstres (C) 150 F 

D Fou volant (C) 150 F 

(C) : Cassette - (K) : Cartouche 



vISX (32 K)+ Magneto SANYO DR 202 2.990F 



D Fruit Search (K) 300 F 

DHero(C) 110F 



□ Tortues (C) 150F 

DUS Rallye (C) 150 F 



Ville 



Je commands a Logic Store les articles ci-dessus 

(mettre la quantity vouiue dans les cases choisies) 

Total de ma commande : F 

Reglement D A partlr de 100 F : par cheque joint 

(expedition franco). 

D Contre remboursement (+ frais d'envoi) 



39, rue de Lancry - 75010 PARIS - Tel. (1) 206.72.28 - Metro J. BONSERGENT Ouvert du mardi au samedi de 10 h a 19 heures. 



Nom : 

Adresse : 
Code : 
Tel.: 
Signature : 



IMOJADO POWFR 

d' UphoiiMi trim 




Avec Alfonso ARAU tsoi- 
meme en personnel. Blanca 
GUERRA et Pedro OAMIAN. 
1H30. MEX. 



Ayayayayaie 111 Palooomaaa ! 
Hombre, un film mejicano ! 
Je suis sur que le nom d Al- 
fonso Arau ne vous dit rien, 
parce que s'il vous dit quelque 
chose, alors je vous soup- 
conne. ou bien d'etre de 
sacres menleurs mylhomanes, 
ou bien d'etre son petit neveu 
par alliance, run n'empechant 
pas I autre. En fait il devrait 
vous dire quelque chose, eh 
oui. 

Alfonso Arau joue dans "A La 
Poursuite Du Diamant Vert" 
(que tout le monde connait), il 
est ce bandit colombien qui au 
fin fond de sa jungle a lu tous 
les bouquins de Kathleen Tur- 
ner (genre collection Harle- 
quin). Ca y est, vous etes af- 
franchis ? Bon alors on 
continue. 

Comme c'est un film du Mexi- 
que moderne, Taction 
concerne la situation des immi- 
grants clandestins aux USA. 
Mais au lieu de faire un film 
gentillel, chiant, psychologique 
et plein de bonne conscience 
comme El Norte, il s'est permis 
de faire un film rigolo avec 
plein d'aventures absolument 
rocambolesques et tout plein 
de chansons non moins droles. 
Bon faut pas deconner. le film 
il est pas tout bon non plus, 
c'est sur qu'au niveau de la 
technique, on aurait pu mieux 
faire, mais le fond rattrape la 
forme, et ce nest pas desa- 
greable. 

N'allez pas croire que je ne re- 
marque les details techniques 

que lorcquo la film est en- 
nuyeux, non. non, non. il s'agit 
betement dune deformation 
professionnelle (c'est hache- 
ment mode de dire ca !). 
Au fait, je n'vous ai pas dit ce 
que veut dire le litre. Eh bien 
voila. Mojado, ca veut dire 
mouille, strictu sensu. mais en 
argot* mex. ca veut dire immi- 
gre clandestin. Power, c'est 
pouvoir (substantif) en zengli- 
che, et les deux ensemble ca 
fait le nom du mouvement que 
forme notre heros, pour la de- 
fense et lentraide des clandes- 
tins, epatant, non ? 
Voila. un film engage rigolo, 
avec une bonne bande son, 
c est toujours agreable et c'est 
pas frequent. 



EZS 




edito 



Montjoie Saint-Denis ! 

Deux bons films cette se- 

maine I 

C'est pas toules les semaines 

qu'on a une aussi bonne 

cuvee, ere nom de nom ! 

D habitude yen a un comme 

ga qui Iraine, un peu perdu 

dans la masse des mediocriles 

du moment, mais cette se- 

maine, certainement pas, ils se 

tiennent les coudes. 

De quoi est-ce que i'va done 

vous causer dans c'f edital, 

hein? 

Parce que vous croyez que 

c'est facile pour moi ? 

Moi qui passe mes semaines a 

aller voir des las de films, par 

fois jusqu'a trois par jour. Je 



sais que vous ncanez comme 
ga, mais en fait vous ne vous 
rendez pas compte que c est 
vous les pnvilegies. Eh oui ! 
Vous n etes pas obliges de 
tout voir, vous au moms. 
Quand un film ne vous dit rien 
a priori, vous vous cassez 
pas : vous y allez pas ! Alors 
que moi... Pas la momdre par- 
celle de choix. pas la plus pe- 
tite liberte de me soustraire a 
ces obligations. 

Tenez. y a meme des jours, ou 
j'me dis que je frais bien 
I'echange avec vous. quel que 
soit voire taff... 

Hein, ? Quoi ? Vous accep- 
tez ? Bon eh bien toul compte 
fail, eh ben pt'e't' que non 
Sur ces considerations baillan- 
tes, bonne semaine t 

CLOU la mauvaise foi. 



"box office 

APRES LA REPETITION 


1820 K 


BRAZIL 


17 20 .M 


AU-DELA DES MURS 


1720 yti 


LA MAISON ET LE MONDE 


1620 IfL 


BLANCHE ET MARIE 


16 20ci£i/ 


SUBWAY 


1520 ^W*. 


NUIT PORTE JARRETELLES 


15 20 ■\IM 


LA BALADE INOUBLIABLE 


15 20 <jS(Ei, 


REPO MAN 


15 20 ^TVy 


ELECTRIC DREAMS 


15 20 QjLOi 


FASTER PUSSYCAT 


1420 frULi, 


2010 


ii20 r*!M 


POULET AU VINAIGRE 


1420 **r#w. 


MOJADO POWER 


14 20 r\/Zj 


LE JEU DU FAUCON 


14 20 CR'B 


THE BOSTONIANS 


1420 ^Vj, 


LA ROUTE DES INDES 


1420 ft\*;7 


LE KID DE LA PLAGE 


14 20 tK«6 


BROTHER 


14 20 -SgfiJ 


MARLENE 


14 2a^^Uir > 


SPLIT IMAGE, IENVOUTEMENT 


13 20 L-M 


MONSIEUR DE POURCEAUGNAC 


13 20 /f * 

12 20^ 


TERMINATOR 


ADIEU BLAIREAU 


12 20" 


DIVORCE A HOLLYWOOD 


12 20 



Avec Carlo DELLE PIANE 
(malheureusement me- 

connu), Tlzlanl PINI (meme 
remarque) et Rosana CA- 
SALE (j'viens d'le dire, vous 
pourriez m'ecouter a la fin !). 
1H30. ITA. 



LA BALLADE INOUBLIABLE 

de Pupi Avail 



Jouons au con. 

J'essplique : j'vais d'abord 
vous montrer comment ce film 
avait tous les elements possi- 
bles et imaginables pour etre 
nul, et ensuite comment le rea- 
llsateur s'est arrange pour en 
faire un tres joli film, eh oui ! 
Prenons un realisateur italien 
des annees 80, en ce moment 
I'ltalie et le cinema ca fait au 
bas mot 125, et encore la 
chuis carrement sympa. En 
plus le realisateur n'est pas 
particulierement connu, sauf 
pour les fans de "gore" (I'epou- 
vante vraiment cradingue), vu 
qu'il a fait "La Maison Aux Fe- 
nelres Qui Rient" en 76. Done 
mefiance, mefiance... 
Choisissons un sujet bien ba- 
teau dont les Ricains nous ra- 
battent les mirettes depuis 
quelques annees ; les films de 
jeunes. avec des jeuoee, qu'on 
est tous hachement cools, et 
tout, et tout. 

Des acteurs pas connus. vu 
que lacteur adulte na lourne 
pratiquement qu'avec P.Avati 



et que I'actrice adulte en est a 
sa premiere apparition sur les 
ecrans. 

Voila done tous les elements 
qui peuvent concourir a (ela- 
boration dune merde. 
Tout faux ! Mais alors la, tout 
faux I 

Eh oui, tout faux parce que 
c'est bien D'abord le realisa- 
teur ne s'est pas embourbe 
dans les classiques du genre : 
les annees 50 60 et tout le 
tralala roquenerolle. Au lieu de 
ga. laclion se passe en 1911 



en Emilie (region de Bologne) : 
la meilleure termmale (mixte) 
du Lycee Galvani de Bologne 
part en balade de Bologne a 
Florence accompagnee par le 
prof de lettres et la prof de 
dessin. Voila un sujet qu'il est 
original. 

Le prof est petit, malingre, mal 
dans sa peau, gauche, mala- 
droit et beat d admiration (lui 
qui na jamais connu de 
femmes a part sa mere) pour 
la superbe prof de dessin qui 
lui apprend que"e s'est juree 




de se venger de son man en 
le trompant au cours de cette 
balade 

Ca c'est un des niveaux du 
film C'est traite doucement, 
tendrement et on s'apitoie sur 
ce vieux celibataire malgre lui, 
en se disant qu'il n'a resolu- 
ment aucune chance. D'un 
autre cote, il est excessive- 
ment enervant justement avec 
toutes ses manies de vieux 
garcon. Eh ben j'va vous dire 
que jouer ga c'est colon et 
c'est vraiment la preuve que 
Carlo DELLE PIANE est un 
grand acteur . 

Autre niveau du film ce sont 
les rapports entre tous les 
eleves, les amours perdues et 
gagnees. les rencontres deli- 
rantes sur le chemin : les fune- 
railles champetres dun couple 
en manes parce qu ils 
n'avaient pas eu le temps de 
le faire, un "grand homme", le 
Tour d'ltalie, une troupe de 
soldats en manoeuvre avec 
lesquels les mecs de la classe 
se fritent la tete.... 
Enfin le dernier des niveaux et 
pas des moindres. les paysa- 
ges et la musique. Superbes 
Omnipresents, la magnificence 
des paysages de I'Emilie et la 
musique de Riz ORTOLANI. 

Un superbe petit film de der- 
riere les fagots. 



ET RATA! 

Ah ben zut alors ! Y'a des fois 
comme ga. on a des bugs a la 
transmission. Moralite. la se- 
maine derniere, au lieu de lire 
que La Route Des indes esl 
un film de Gary Marshall, il 
fallait comprendre que e'etait 
en fait de David Lean, mais ga 
vous laviez deja compris ! 




Avec Michel GALABRU, 
Fanny COTTENCON. Roger 
COGGIO et Rosy VARTE. 
1H31. FRA. 



MONSIEUR DE POURCEAUGNAC 

dv Michel MITRANI 

d'apres une piece de Mo- 
here ?", alours Mitrani il a 
ponsi qui s'iti ine bounne idi i il 
a dit d'accourd. 

II a choisi Missie di li Porco- 
gnac, i coumme ga il a ponsi 
qui li mieux si sirait di prondre 
Michil Galabn, i il a i rison. 
parce qui vrimont il est tri bien 
i tres ngoulou. I puis oussi il a 
dicidi qu'il fallit ine jine i joulie i 
bounne actnee pour (aire la 
jine fille, alours il a choisi 
Fanny Cottengon, i la encoure 
il a i rison, ji Irouvi. 
Mitrani. il a vouli fire li film 
coumme si que Louis 14 (c'i li 
prisidont) il rigardi avec sa fa- 
mine. Alours tout li long di film, 
a chaque fois qu'il y a un nil- 
raff ou ine peintire sir li mir 
dine mison, on voit didons 
Louis 14 i sa femme qui rigardi 
ci qui si passi, C'i ine tres 
bounne idi pour montrer que li 
Roi il i toujours en train di ri- 
garder, mis a la fin y en a un 
pi marre, parce qui ga y'est. on 
a compns. ci n'i pas la pine di 
nous prendre pour dis imbici- 
les! 

Ji prends (accent arabe parce 
qui c'i me histoire coumme chi 
nous : un missie qui vient si 
maner a ine femme qu'il coun- 
naft mime pas. i ille i pas d'ac- 
COurd. 

C'i pas trop mal coumme film, 
pour ci qui ne counnaissent 
pas bien Mouliere... 



Missie di li Porgognac, c'i li 
piece di thiatre di Mouliere. qui 
lui-mime c'i un autir di thiatre 
fronci. C'i li piece di 
commonde, qui li Roi Souleil il 
lui avit dimondi, coumme ga il 
pourrait rire. I alours Mouliere 
qui c'iti li mec geontil. i qui sir- 
tout il avait pas di i argent, il a 
dit coumme ga d'accourd. mis 
stlmont si ti paye li siquirili sou- 
cial pour moi. 

I coumme ga qu'il a icnt arte 
joulie piece qui dedons il y 
oussi di geons qui chonti i qui 
donsi. 

Rouger Coggio, c'i li mec qu'il 
a crii ine association pour fire 
di cinima intelligeont. c'i 
coumme ga qu'ils onl lait des 
pieces di Mouliere au cinima, 
oussi ils ont fit Louise I'msou- 
mise 

Alours un jours, coumme ga, il 
a dit a Michil Mitrani . "Pour- 
quoi ne ferais-tu pas un film 



REPO MAN 



Avec Harry Dean STANTON 
(Paris Texas, le pere), Emilio 
ESTEVEZ et Tracey WAL- 
TER. 1H35. USA. 



Ha ! Ha ! Super ! 
Ex-punks, ex-skas. ex-rude- 
boys, ex-skms, ex-darks, ex- 
branches et cables de toul poil 
a vos ecrans ! Nan, pas les 
ecrans de vos becanes, les 
ecrans de cmoche. les toiles. 
quoi I 

Voila un futur film-culle qui ar- 
rive en catimini. 

Qu'est-ce qu'un film-culte. 
d'abord ? 

C'est un film dont certains de 
vos potes parlent, en lant que 
rares pnvilegies ayant vu ce 
film, et qui vous font vous sen- 
tir coupable parce que vous 
ne I'avez pas vu. Et si vous 
avez vu le film, et que vous 
etes avec les memes potes. 
vous vous sentez de toutes 
fagons coupable parce que 
vous ne I'avez vu qu'une seule 
fois par hasard et sans savoir 
ce que e'etait, alors qu'eux 
I'ont vu au bas mot une demi- 
douzaine de fois. Evidemment 
ils connaissent tous les dialo- 
gues par coeur. et en emaillent 
leur conversation en se fen- 
dant la poire. 

Je crois bien que le film-culte 
par excellence est le RHPS. 
ou pour les ignares (vous 
voyez deja vous vous sentez 
coupable ') : The Rocky Hor- 
ror Picture Show. Autre film- 
culte, mais dans une momdre 
mesure. peut-etre parce que le 
film est nettement plus vieux 
('43) : Hellzapoppin et puis 
quand meme un quest pas a 
oublier non plus : Phantom Of 
The Paradise. 

II n existe pas de recette pour 
faire dun film un film-culte. du 
moins je ne crois pas. Pour- 
tant, je vous dis que REPO 
MAN en sera un, y'a certaine- 
ment quelque chose qui de- 




conne dans ma tete alors 
non ? 

Reponse ; oui. 

Laissez-moi un peu vous par- 
lor du film, et peut-etre que 
vous allez comprendre' mon 
opinion. 

Otto est un mec cool qui zone 
avec ses potes a LA Manque 
de pot le meme jour il se fait 
larguer et de son taf . et par sa 
gonzesse. Comme y glande 
toujours aulant, il continue de 
zoner de plus belle. Tout d'un 
coup v'la-t-y pas qu'y a un 
mec qui I'branche et qui lui 
propose de bosser avec lui. 
Otto, lui il en a priori rien a 
s'couer et il accepte. Et c'est la 
qu'il decouvre lactivite du 
mec ; il est Repo man... Ention 
et damnafer ! Kezako ? 
Repo = repossesseur et man, 
comme que vous le savez 
deja, depuis le temps que |e 
vous le rabache. c'esl 
'homme". Reposseder. moi 
j'veux bien, mais reposseder 
quoi ? Eh bien. ma foi, des 
caisses pardi ' En clair, les 
boites de credit s'adressent a 
ces mecs-la, lorsquun de leurs 
clients a trop de traites en re- 
tard. Arrivent les Repomen qui 
chouravent, lega'ement. la tire 
du mauvais payeur Voila un 
bon moyen de reinsertion so- 



des delmquants a leui 
sortie de tole ! Faudrait propo- 
ser ga a Badinter 
Le lezard c'est qu'un avis de 
recherche est lance par les 
keufs pour retrouver une 
caisse contre une rangon de 
10000 S . Normal, vu que 
d-ns le corf re de la bagnole il 
y a des cadavres d'extra-ter- 
restres. S'il n'y avait que la 
bande de repo men a laquelle 
appartient Otto sur le coup, 
y'aurait pas de probleme 
Mais, y'a toujours un mais qui 
traine, il y a aussi une bande 
adverse, plus la CIA, plus le 
FBI, plus une secte. qui res- 
semble etrangement aux 
Scientologistes, sur le coup 
Evidemment c'est Otto qui la 
recupere, comme vous I'auriez 
devine 

C'est filme d'une facon ires 
speed, dans lous les sens du 
terme Tres bien monte, pas 
de temps mods, pour un pre- 
mier film c'est vraiment reussi. 
C'est bien joue. Harry Dean 
Stanton en tele, mais on savait 
deja ce dont i! etait capable. 
Maintenan! que vous connais- 
sez Ihistoire, peut-etre voyez- 
vous pourquoi je pense qu'il 
s'agit dun fulur film-culle. enfin 
lavemr me donnera (ou pas) 
raison. 



ADIEU BLAIREAU 

de Bob nr.coiT 



I 



Avec Philippe LEOTARD. 
Annie GIRARDOT, Juliette 
BINOCHE et Jacques 
PENOT. 1H40. FRA. 



Bon, quel est I'interet de ce 
film ? Bonne question, j'vous 
remercie de me I'avoir posee. 
mais en fait quel est I'interet 
d'un film en general, hein ? 
Eh oui. pourquoi aller au ci- 
nema et voir des films, apres 
tout ? Ou est I'interet maieur 
qui fait se deplacer 165 mil- 
lions de spectateurs en un 
an ? La question vaut aussi 
bien pour ce film que pour un 
autre, apres toul. Que recher- 
che-t-on 7 Le depaysement ? 
L aventure ? Le charme ? Les 
belles gonzesses ou les beaux 
mecs ? Le mal de mer ? Ses 
cles ? 

Bon, ben en tout cas. c'est pas 
ce que vous trouverez dans ce 
film. Cast un polar. Bon evi- 
demment je ne lavais pas 
mentionne dans ma liste, alors 
j'ai la part belle. En fait c'est 
pas vraiment un polar, c'est 
plutot ce qu'on appelle un film 
NOIR. 

Comment se caracterise un 
film noir ' 

La nuit. la pluie, le jeu, la 
gnole, lambiance louche et 
bien sur un heros anti-heros. 
parfois malgre lui embringue 
dans une histoire sordide. 
C'est un mec qu'est jamais 
beau, qu'est jamais bien rase 
et rarement sobre. De toutes 
manieres il se fout (ou il s'est 
foutu) dans une histoire pas 
possible 

Bon. eh ben tout ga, ga y est 
dans le film, 

Le heros, vous I'aviez devine, 
c'est Leotard, le frere du frere. 
Bob Decout en est a son pre- 
mier film. II le fait avec tous les 
poncifs du genre sus-mention- 
nes. Pourtant Pepe Hitch avait 
donne une belle legon avec 
"La Mort Aux Trousses" (North 
By Northwest, pour les puris- 
tes). Dans ce film, comme 
Hitch I'expliqua par la suite, au 
lieu d'utiliser. pour creer le 
suspense (hydraulique). une 
scene de nuit, de pluie, dans 
une rue mal eclairee (e'est-a- 
dire ce que fait exactement 
Bob Decout en '84), il a fait 
cette meme scene sur le bord 
d'une route perdue au milieu 
de champs de mais qui s'eten- 
dent a perte de vue et en plein 
soleil. done tout le contraire. et 
ce en '54. 

Vous pouvez done en deduire 
que lami Decout n'a pas beau- 
coup d'imagination, e'etait bien 
ce que je voulais vous (aire 
comprendre. 

Non seulement il n'a pas 
d'imagination, mais en plus il a 
d'enormes progres a faire en 
ce qui concerne la narration. 
C'est tres mal raconte et on se 
perd entre Ihistoire d'amour- 
passion qui lie Leotard et Bi- 
noche, son ex-gonzesse qu'en 
a eu ras les roberts, et ihis- 
toire, a priori centrale : 
comment reussira-t-il a trouver 
la thune pour rembourser ses 
dettes de jeu avant de se (aire 
buter. 

On ne comprend pas trop ce 
que foutent la les autres ac- 
teurs a part Leotard, et ga non 
plus c'est curieux : un premier 
r6le et une kyrielle de Iroisie- 
mes et quatriemes. mais pas 
de seconds. 

Pour vdtre information, le re- 
tour de Girardot ne vaut pas le 
detour, de toutes manieres. le 
seul film ou j'aime Girardot 
c'est Le Mari De La Femme A 
Barbe de Ferreri, alors. 
Juste un dernier mot qui 
concerne la fin du film, plus 
queue de poisson, vous avez 
jamais vu. Soi-disant sophisti- 
que, en fait c'est nul. II ne 
s'appeiie pas Beneix. et en 
plus c'est 5 ans apres. 
Ne vous deplacez pas. ce 
nest pas dans ce film que 
vous decouvrirez Juliette Bino- 
che, dont je vous ai deja dit le 
plus grand bien, attentions plu- 
tot Rendez-Vous de Techine, 
ou parait-il on peul enfin me- 
surer I'ampleur de son talent. 




teCoche 



LE FACTEUR TEMPS 
Le MessagerQ 



Film de Joseph Losey (1970) 
avec Alan Bates et Julie 
Christie. 





autogra- 



Tu me donnes 
phe ? 

Fifties Un vieil homme se sou- 
vient de (episode marquanl de 
son enfance au debul du sie- 
cle Flash-back sur lAngleterre 
a la chamiere du siecle. son 
charme victorien, sa genlry 
sure delle-meme el leurs do- 
mesliques innombcables Le 
heros se rememore plus parli- 
culieremenl lete de ses onze 



ans ou ii servii de messager 
entre la vicomiesse el son 
aman! Ted 

Tel un bombyx autour dun 
ecran de tele, le jeune garcon 
est lascme par ce monde 
eirange de lanslocratie. sa 
morale differenle. celle belle 
dame qui I aguiche et le caiole 
Les lellres que lenlant irans> 
met rendent la liaison plus ex- 
citante parce que les amants 
ont le sentiment d'etre regar 
des, damener un tiers entre 
eux jpervers isn't il) Aucun ne 
voil la souffrance de langelol 
qui se senl responsable de 
lamoralite de la situation. 

Un sentiment de latalite impre- 
gne toutes les oeuvres de 
Losey lei les personnages 
sont conditionnes el condam- 
nes. non par leurs passions 
mais par leurs situations socia- 
les. La beaute du film tut re 
compensee par un pnx special 
du Jury a Cannes 
Diffusion te 19 a 20h3S sur 
TF 1. 




fcUMP 



Film de Diane Kurys (1982) 
avec Miou-Miou, Isabelle 
Hupperl et Guy Marchand. 

Lena et Madeleine ont connu 
bien des malheurs durant I'oc- 
cupation. Lena, juive a dii se 
marier avec un francais, Michel 
(ce sonl des noms qui vont 
pas bien ensemble), quelle 
n'aime pas: Madeleine a vu 
son man abattu par la milice 
(elle pleura comme une ...). 
Apres guerre, toutes deux on! 
un man. des enfants et la se- 
curity sociale mais elles ne 

sdht pas heureuses. Lors cie 
leur rencontre a une fete sco- 

laire, c'est le coup de foudre. 
Adieu lennui. la mediocnte les 
ronflements du man. vrve 
I'aventure, la joie. la vraie vie 
quoi. 

Diane Kurys. c'est ce 

qu'on appelle une ecriture fe- 
minine. Quesaco ? Un style, 
une sensibilite qui ici sexprime 
par une p aria He complementa- 
rity des deux acthces principa- 
les. Deux vedettes qui jouent 



ensemble, cote a cote et non 
I'une contre l autre ou I'une 
sur I'autre (cole contre cotei 




"Nos femmes nous quittent" 

Un film delicat et fin qui illustre 
un propos simple mais eter- 
nel : il faut etre deux pour exis- 



Dittusion le 14 a 20h35 sur 



curiosit6s : 



NOTRE HISTOIRE 



SOLEIL ROUGE 



Film de Bertrand Blier (1984) 
avec Alain Delon et Nathalie 
Baye. 




J'aurais pas du me coucher 

Un pochard (Alain Delon) reve 
dans un tram. Dans ses 
brumes ethyliques, il est re- 
cueilli par une nymphomane 
(Nathalie Baye) II reste. le bar 
et le tngo etanl convenable- 
ment rempli Amoureux fou de 
la belle (du Label 5 auss>l il 
supporte tous ses ecarts Mais 
le delire de I amant (a table) la- 
mentable va se muer en cau- 
chemar. 

Patatras el palales roses 
Biere qui roule namasse pas 
mousse e! ce film loin de pelil- 
ler. nest que de la peine biere 
Les constants derapages nar- 
ratits pulvensent t intrigue, les 
dialogues sonl surcharges de 
vulgartle. le couple BAYE- 
DELON ne fonctionne pas 
bref le charme et le mystere 
noperent pas Fiasco en lias 
que. 
Diffusion le 19 a 21h00 sur C 



Film de Terence Young 
(1971) avec Charles Bron- 
son. Ursula Andress. To- 
shiro Mifune et Alain Delon. 

Attrontement nippo-amencam 
en 1871 Lenjeu une cargai- 
son dor plus une epee de sa- 
mourai Tenant du titre plus 
mechant que mor Gotch 
(Delon). challengers Link 
(Bronson) el Kuroda IMitune) 
au milieu la Femme (Ursula) 
Terrain de jeu une hacienda 
spectateurs les Comanches. 
duree du match une heure 
cinquante Resullal impres- 
I 




J aime les jupons sexy 
Diffusion le 16 a 20h35 sur 



Film de Fred Zinneman 
(1977) avec Vanessa Red- 
grave et Jane Fonda. 





Lundi 13 mai 


20h30 C+ 


MESDAMES. MESSIEURS... BONSOIR 

(Ciao) 

LA ROBE MAUVE DE VALENTINE 


20h3S A2 




(theatre antique) avec Suzanne Flon. 




Macha Mem et Daniel Gelm 


20h35 TF) 


PEUR SUR LA VILLE. lilm (Dotal) 




d'Henri Verneuil avec Jean-Paul Bel- 




mondo. 


20h35 FR3 


LA JUMENT VERTE (1959) de C. Au- 




tant-Lara avec Bourvll 


22h30 TF) 


ETOILES ET TOILES en direct de 




Cannes 


22h30 FR3 


THALASSA A CANNES 


Mardi 14 mai 


20h30 C+ 


LES TROIS JOURS OU CONDOR 


20h35 FR3 


JULIA (voir CURIOSITES) 


20h35 TF1 


Commlssalre Moulin: Alieclation spe- 






20h35 A2 


COUP DE FOUDRE (voir arUclettti 
CONTRE-ENOUETE 1= * 


22H05 TF1 


23tl05 TF1 


UN VIOLON POUR LETE avec Ivry 




Gitlis 


Mercredi 15 mai 


20h00 A2 


FINALE COUPE DEUROPE DE FOOT- 




BALL 


20h30 TF1 


DALLAS 


20h35 FR3 


CADENCE 3 


21h00 C+ 


LES FANTOMES DU CHAPELIER (voir 

article) [Q 

LA GUERRE SECRETE DU PETROLE 


211)30 TF) 




rf 2: Les complots 


22h00 A2 


LES JOURS DE NOTRE VIE: Les dan- 




gers domestiques rf 2 


22h25 FR3 


LA FEMME AUX BOTTES ROUGES 




(1970) avec Catherine Deneuve 


221)25 TFt 


COTE DAMOUR (La bourse Qui rocke) 


23h00 C- 


LA FEMME PUBLIQUE (voir adicle SI) 


Jeudi 16 mai 


20h30 C+ 
20h35 FR3 
20h35 TF1 


LA VIE EST UN ROMAN (voir adiclelO 
VIOLETTE NOZIERE (voir article)* 
LES MISERABLES rf 3 


20h35 A2 


SOLEIL ROUGE (voir CURIOSITES) 


21h30 TF1 


INFO VISION 


22M0 A2 


MUSIOUES AU COEUR: Vopetette 




viennoise 


22H25 C+ 


LADY LIBERTINE 


Vendredi 17 mai 


20h35 A2 


CHATEAUVALLON 


20h35 FR3 


AGATHA CHRISTIE: La temme dispa- 


20h35 TF1 


LE JEU DE LA VERITE avec Coluche (II 




dit tout sur Sabatier ?; 


21(100 C+ 


OON CAMILLO MONSEIGNEUR (tilm 




pateux) 


21h30 FR3 


VENDREDI 


21h35 A2 


APOSTROPHES: Romans d amour 


21h50 TF) 


UNE PENICHE NOMMEE REALITE 




(amour au til de leau) 


23h00 A2 


LES LETTRES PERSANES ()969).tilm 




de Jean Rouch 


00h15 FR3 


LES AILES DE LA COLOMBE (1983) 




avec Dominique Sanda et Isabelle Hup- 




perl 


San 


ied/ 18 mai 


201)35 TF) 


AOIEU PRUDENCE, piece de Leslie 




Stevens 


20h35 A2 


CHAMPS ELYSEES 


20h35 FR3 


DISNEY CHANNEL 


22h10 TFt 


DROIT DE REPONSE 


22H15 A2 


LES ENFANTS DU ROCK: Billy Idol 


22h15 FR3 


DYNASTIE 


22h50 C+ 


NEW-YORK NIGHTS (craignos) 


Dimanche 19 mai 


20h3S A2 


LE GRAND RAID 


20h35 TF) 


LE MESSAGER (voir article* 


20H35 FR3 


MACADAM 


21h00 Ct 


NOTRE HISTOIRE (voir CURIOSITES) 


21h35 A2 


LUBAT. MUSIOUE PERE ET FILS 


22H30 FR3 


NOTRE PAIN OUOTIDIEN (voir CURIO- 




SITES) 



Une ecrivame americame. Li 

iian Hetlman Uane Fondai se 

■iouvient de sa jeunesse dans 

ies annees trente. Elle et Julia 

iVanessa Redgrave) vecurenl 

ensemble une adolescence 

heureuse Puis Julia se re 

volta centre son milieu arista 

cratique el sengagea poi>:i. ■ 

ment Lilian decouvnt lors dun Homm 

voyage en Europe en 193 i him est plus reussi 

visage du fasasme montani dans la partie intmnste le por 

Elle aida Julia dan trail des deux femmes que 

mais celle derniere fmit assas dans I epopee anli-fasciste 

sinee par les nazis Diffusion le 14 a 20h35 




telocfie 



L' AMOUR EST UN BOUQUET DE VIOLETTES 
Violette Noziere^ 



Film de Claude Chabrol 
(1978) avec Isabelle Huppert. 
Jean Car-met et Francoise 
Fabian. 




Reconstitution d un tails divers 
des annees 30 Durant la jour- 
nee. Violette (label Huppert) 
est une petite fleur bleue bien 
sage qui rentre tranquillement 
(aire ses devoirs devant 
maman. La nuit, elle devient 
une fleur veneneuse, toute de 
noir velue, qui se laisse effeuil- 



ler contre de I'argent. Amou- 
reuse dun gigolo (plante para- 
sitaire urbaine), elle vole ses 
parents puis envore son pere 
bouffer les pissenlits par les 
racines. Jugee. condamnee a 
mort, elle sera liberee pour 
bonne conduite puis rehabili- 
tee. Vous avez dit bizarre. 
Famille, je vous hais. Le credo 
chabrolesque trouve la le sujet 
de ses reves. L'histoire de 
cette ravissante idiote est Iraitee 
de maniere factuelle avec une 
absence totale de parti- pns. 
Chabrol refute toute explication 
psychologique ou psych iatri- 
que. L'accumulation d'informa- 
tions obcurcit le personnage 
de Violette, par ailleurs de- 
pouille de toule dimension 
poetique. melodramatique ou 
tragique. Le jeu lunaire. atonal 
d'lsabelle Hupperl accroit la 
froideur de la demonstration 
qui tourne a lexercice de style 
On reste sur sa (aim. 
Diffusion le 16 a 20h35 sur 
FR3. 




CHATEAU EN ESPAGNE 
La Vie est un Roman i 



Film de Alain Resnais (1983) 
avec Vittorio Gassman. Rug- 
gero Raimondi. Geraldine 
Chaplin et Fanny Ardant. 

Dans la foret des Ardennes. 
Michel Forbak a lait construire 
la Cite du Bonheur" de 1914 a 
1919. mais la guerre a durci 
les ulopiques visions de For- 
bak Apres labsorplion d un til- 
tre de loubli. les volontaires 
renaissent au monde. condi- 
tionnes pour {'entente (cor- 
diate) et lharmonie (munici- 





devant les exigences de la 
passion mcarnees en Livia 
(Fanny Ardant en fruit de la 
passion) 

Soixante ans plus tard, lutopie 
fleunt a nouveau dans ce cha-, 
teau. Un colloque Education 
de limagination" a pour objet 
un monde heureux grace a 
des entants epanouis" La reu- 
nion find dans te desordre et 
I'mjure. Normal, aucun informa- 
ticien nelait incite Pour rendre 
les enfants heureux. une solu- 
tion et une seule : 1 abonne- 
ment a Hebdogiciei 
Entre les deux epoques. le 
rc»c utopiquc a'li-ifiiiic. Diem. la- 
ment, il ressemble a un jeu 
davenlure A soixante ans, 
Alain Resnais retourne en en- 
fance. Libre a vous de le sui- 
vre dans son monde enchante 

Diffusion le 16 a 20h30 sur C 



ILS ONT DES CHAPEAUX RONDS 
Les Fantomes du Chapelier n * 



Film de Claude Chabrol 
(1982) avec Michel Serrault. 
Charles Aznavour et Aurore 
Clement 

Chabrol. ton univers impitoya- 
ble Une petite ville de pro- 
vince brelonne. ses secrels 
sordides. sa petite bourgeoisie 
mesqume. ses notables igno- 
bles. 

Un mysterieux assassin tue 
des lemmes. des ieunes des 
vieiiles, des blanches, des 
vertes et des pas mures La 
police est dans les choux. la 
feuille de chou locale qui recoil 
des letlres du meurtner en fait 
ses choux gras. les mauvaises 
langues se dechainent Le me- 
decm. le tailleur et le chapelier 
ne sont pas les dermers a en 
faire des gorges chaudes 
Atmospheres etouftantes. pas- 
sions exacerbees. le climal ha- 
bituel de lunivers chabroiien 




// esf beau mon bilos ' 

lorsqu il traque le bmome 
amour crime. Serrault est 
ebiouissant et le spectacle de 
gualite 

Diffusion le 15 a 21h00 sur C 



NOTRE PAIN OUOTIDIEN 

Film de King Vidor (1934) 
avec Kareen Morley et Tom 
Keene. 






Henlier d'un grande ferme dont 
il ne sait que laire. John, cho- 
meur. decide de fonder une 
cooperative avec un termier 
sans emploi Des dizaines de 
personnes (charpentier, meca- 
nicien cuismier. plombier .) 
vont se joindre au pro|et et for- 
meronl une communaute so- 
cialisante settorcant de vivre 
de la terre abandonnee. 

Hommage a lespnt pionner. 
epopee lellunque. ce film re- 
coita un prix au Ii 
Moscou malgre son caraclere 
capitalisle 



tdm Diffusion le 19 a 22h30 sui 
FR3. 



AMSTRAD 

LES LOGICIELS FRANQAIS 
SONT ARRIVES ! 
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COBRA SOFT idiXe. auiti pom let autiit mi.c*.o-o*di.nattu:t iamiXXaux '. 
Pou\ teceucit It catalogue. ; Envoyii une tn\>tf.oppi timbxie. a 2.10 Fit, poitant votit 
adtfrSii tomptilt. a : COBRA SOFT 5, au. Monno* 71IOO CHALON S/SAONE {Pxizxitz la mat- 
que de uoiie oidinafcuiK 
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Suite de 'a page 1 

^5 



parlais tout a I heure C est nou- 
veau. c'est exclusit. c'est Sony, 
c'est 200 francs avec fil et 750 
francs without. 



JOHNNY AIME 

Regarde un peu cette fille-la : c'est 
la plus belle de tout I'quartier 



TRACK BALL 

C'est comme qui dirait une souris 
mais la tete en ('air. Au lieu de ba- 
lancer par terre tout ce qui traine 
sur la table en manipulant Mickey 
Mouse, on tourne tfu bout des 
doigts la boubouie a Sony Un logt- 




f 



ERE HARE HUM... 
ANOUMESTE ! 



R6gulierement les ateliers d 
Ere Informatiqueproduisentdes 
logiciels dignes au moms dun 
coup d'oeil. Exceptionnelle- 
ment la derniere sortie souffre 
d'megalites crianles. Ainsi la 
disparity de la qualite entraine 
de nombreuses nuances dans 
le jugement. 

Triathlon fonctionne sur Oric 1 
et Atmos e! ne justifie pas vrai- 
ment de commentaire : les 
Irois epreuves d'athletisme 



ATMOS /ORIC 1 

I ■ 



part larcade est beaucoup trop 
lente. Snif ! Mais vraiment quel 
plaisir de jouer contre un par- 

tenarre pertrjrmant 







font plus appel a la patience 
qua ladresse Nous sommes 
bien loin de la qualite de Sum- 
mergames. A ne recommander 

qu'aux praticants vite satisfaits 
de graphismes sans originate 

Micro Sapiens part dun senti- 
ment nettement meitleur. A 
cheval our les jeux de tettres et 
1'arcade. ce logiciel vous em- 
menera sur la voie de la re- 
.(lexion avec des intermedes de 
detente. Deux reproches me 
viennent a I'esprit : lordinateur 
est vraiment trop tort dans la 
partie arcade {moment ou Ton 
choisit les lettres) ce qui lui 
donne un avantage certain 
pour la deuxieme phase du jeu 
(recherche de mots) et d'autre 





Saga porle Dien son nom pu 
que vous avez leiermte 
I univers pour vous consacter a 

cette exploration A vous do' 



ATMOS / ORIC 1 



SRfcH 



de sauver vos nompatnotes 
echoues au tin fond de la 
deuxieme galaxle a gauche et 
ce sans lacher les commandes 
de voire Oric. 



LA FRANCE PAYS 

SOUS-DEVELOPPE 



Alors meme que Ton ne sa 
pas comment i Atari 520 S 
Sera distribue dans noire dou 
pays, les tractations amour d 
Commodore 128 devoilenl w 
aspect inquietant de la menta 
lite- des americains vis-a-vis d< 
la France. Comme les ventes 
du C64 n'ont jamais reussi a 
atteindreles objectifs fixes au* 
USA, la matson mere souhaile 
rait que le C128 ne soit pas 
dislribue en France mais qu" 
la place nouspuissions joulr de 
I'inexistanl C16 el du nulls- 
sime Plus 4. 



FftUJU 
MVtt 

Nous sommes done en trai 
de devenir la poubelle de I'Eu- 
rope aux yeux des grands 
pontes de Commodore : nous 
sommes tout juste bons 
epuiser les stocks de sous-n 
chines (C16, Plus 4). tandis 
qu'en Allemagne, en Angle- 
terre et en Italie les develop- 
peurs pourront dans les jours 
qui viennent commencer a Ira- 

v ailler sur le C128- 

C^M'fAfPFLtE ?*fkHC£.VOV$' 

mtt, 0£i tov- 



Pour Atari c'est pareil, alors 
que les deux mille premiers 
exemplaires (Made In Taiwan) 
de 520 ST doivent etre livres 
en Allemagne au plus tard le 
31 mai. la France reste sur sa 
(aim et peut se promener de 
Las Vegas a Hanovre pour de- 
couvnr cette machine. Nous 
serons probablement les der- 
niers servis ! 



at 



Cest pas vrai, comment lonl-ils ? 
Vols voyez un peu comment quelle 
est belle, cette impnmante ' lis ont 
sequestre tous les bons designers 
ou quoi ? 6 caracteres seconde en 
texte. 4 couleurs. lonclions graphi- 
ques. On a beau savoir que c'est 
une table tragante a billes style 
Sharp ou One retravaillee. on ne 
peut que dire 2500 francs, c'est 
du So-ny ! 

LOGICIELS RUNNER 

Tous les logiciels msx tournent evi- 
demment sur le Sony Mais, fut-fut 
lusqu'auboutisles, ils ont stgne des 
accords avec les bons pour avoir 
des softs a eux, en exclusive Et 
qu'est-ce qu'ils ont choisi. entre 
autres, ces malms-la ' Lode Run- 
ner ! Si. si. le vrai, pas Lude Ron- 
ner ou Rode Lunner le vrai Lode 
Runner de Broderbund. m succe- 
dane nl ersatz ! II n'a que 75 ta- 
bleaux au lieu de 150 sur Apple, 
mais les mgemeurs de Sony sont en 
train de chercher comment faire 
lenir 64 Ko dans une memoire de 
32 Ko Chiche qu'ils y arnuent 



ciei de dessm style Micropainter en 
27 fois mieux est fourni avec le 
pseudo - rongeur Si Leonard de 
Vinci avait pu uliliser ce logiciel. il 
serait aujourd'hui plus connu Que 
Jean Dupont Sony, 950 francs. Qa 
tient la route. 

EDITION 

Dn dernier point : Sony cherche des 
.tuteurs de logiciels. meme ama- 
teurs (done vous I), pour les editer 
/OUS ecrivez un jeu de course (un 
vrai, pas une finance familiale a la 
Answare ou un educatil a la Vifi), 
Sony le fabrique en cartouche de 
ROM et le distribue dans le monde 
entier A vous les pepettes, les 
belles blondes, le mousseux, le 
jambon-beurre, le Iromage ET le 
dessert ■ 

SIX- 




PEPE LOUIS CONTRE 
LE GANG DES PUCES ! 



Suite de la page 28 




Tramolo hisse la voile. Steve 
prend la bar re. Je pose mon 
petit dernere de vieillard sur la 
dunette avant et vogue la ga- 
lere. Sur la plage, les moines 
nous font des grands signes 
d adieu, mais bientdt leurs sil- 
houettes s'estompent dans le 
gns de la nuil comme des bou- 
gies d a nm vers aire sou ft lees 
par le vent du large. 
La mer est calme. Tramolo en 
profile pour descendre a la 
cale et s'imbiber les amygda- 
les. Je le suis dun pas mal as- 
sure. 

- Arrosons notre evasion Pepe 
Louis ! Nous avons echappe a 
Monastorio. 

Sur la tablette de la cabme. les 
deux valises contenant les pro- 
totypes sont posees negli- 
geamment. 

Tramolo en attrape une pour 
degager la table. Son visage 
se decompose soudain. 

- Bullshit ! Those damned bas- 
tards se sont joues de nous " 

- De quoi-t-est-ce qu'il re- 
tourne-t-il ? 

- Les valises sont VIDES pepe 
Louis ! 

II fait sauter les serrures febri- 
lement. Effectivement. trois 
couranls d'air se baltent en 
duel avec un papier a linte- 
rieur de la valoche. Et sur le 
papier, il y a ecrit ceci : MERCI 
POUR TOUT ET RENDEZ- 
VOUS EN ENFER signe L OM- 
BRE VERTE !!!! 
Si mes souvenirs sont exacts. 
c.a nest qua ce moment que 
nous avons realise que nos 
pieds trempaient dans du li- 
quide. et qu une enorme voie 
d'eau agrementait la coque in- 
teneure ! 

(Pour suivre le prochain epi- 
sode, ne manquez pas d'ap- 
porter vos bouees.,). 




la boutique des 
mordus de THOMSON 



• Materiel 

Peripheriques 

• Accessoires 

• et plus 
de!50 logiciels 

BON DE RESERVATION OU NOUVEAU THEOLOGUE 85-86 




A completer et 6 renvoyer 6 Logic Store pour recevoir 
le nouveau THEOLOGUE (parution Juillet), le catalogue 
de tous les materiels et logiciels des ordinateurs TO 7, TOZ70 
et M05 ainsi que les additifs s'y rapportant 

(participation 20 F remboursable a la pnMni*r« tommand.) 

Nom . Prenom 

Adresse 

Code postal Ville 

Telephone 

CONFIGURATION: 

Ci-joint.-nCheque DCCP D Mandat de 20 F. 



39, rue de Lancry - 75010 PARIS - Tel. (1) 206.72.28 - Metro J. BONSERGENT 
Ouvert du mardi au samedi de 10 h a 19 heures. 
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la page pedagogique 



la page pedago~ 



A travers I'utilisation des possibilites graphiques du T07, GUY MAZAT nous propose ici quelques cours 
de geometrie. 

Moid WT& cotfS &£ 
6e'(?ME°rei€.ET veui'uez ) 

PP0FESS(-<3NMEU,E X 

5E% 



Mode d'emploi : 

Trois commandes apparaissent dans les diverses etapes 

C. acces aux questions avant letape suivanle 

S. acces a letape suivanle sans avoir a repondre aux questions 

I, Copie d'ecran sur imprimante a impact (T07. T07 70 seulementi. 

les possesseurs d' imprimante thermique devront. en ligne 8010. 

changer EXEC(MO) par SCREENPRINT (dans ce cas. suppnmer les 

lignes a 40). 

Les DOSistes qui desirent utiliser linstruction PAINT pour coloner 

linterieur dune forme, devront apporter les modifications indiquees 





THEOREME de PYTHAGORE 

sur TO 7, T07/70-MOS 



Mais sGU= sPOK 



La translation "t- EJS entraine 
slCM= sAHK 
MaissGU= sPOK 
Dono sACIH= sACMK 





La translation *_ ElS M 

entraine slCM= sAHK / L 

Mais sGU= sPOK 




sABEN= sABJK 




SACMK= sACDN 



Resumons : 

sABEN= sABFG 

SACDN= SACIH 

Alors : 

AB? + AC 2 

or 

sABC=sENDN+sACDN 

II s'en suit que : 

AB-* + AC2= BC2 

= sBCDE 
On vieni de prouver que 
(A angle droit) ---> 
(AB2+ AC^ = BC 2 ) 
Voici la figure generate : 




Essaie de refaire 
la demonstration. 



. 



MODIFICATIONS DOS 



716 LI«»XU6>,Y(16>l-tX<l3>,Y<13>),3-LI 
NE-.Xlll>,Y<ll>>.3:LINE-<X<16>,YU6>'.3 
7** C0UL>3:(;OSUB72l8:&l>SU87?t8 
Tf9 LINEIX(7),yi 7>'l,-<X<12>,Y<l*S>4i>»-i 
:LIH£-'*>1»>,Y<!»>>.-8IL1NE-<X17>,Y<7>»1 
. -h-C0LIL--8:CCSU87SM 



INE-<XU1»,Y(H)>,-8ILINE- 

-8:COUL--8IC05U8728»:rO* 1 

8> STEP 31 



YD*YU»>>XF-X< 
IB 
■ L1«£*X<7), 



TO Y<1 
•imxTHXD-X<l«): 
I2>iCDUt.>l:COSUB7 



1(16), ¥<!*)), ULIHC 
-<Xt7>,Y<7>>,t 

838 LItt<X<6>, Y(6>)-(X(2», Y(2 >>,-8: L1BE- 
y<12»,Y(l2>),-8!LlNE-<X<7>,Y(7)>,-85LIN 
E-.x<6>.Y<&>).-8:C0UL--8'G0SUe72*»8:COLOR 
8:L0CATECU7>,L!17>sPRIIITCH-r»(*4»l2>; 
B4B UNE<X<7>,Y<7>>-<X<l),Y<l>>,|lCOUL.l 
-• ■ tU>,S'C0LORHPR 

j))-(x(I]),y<ii>),hli 

»t-.x< i5).YM5>>,i:i:ou(.-iieosim7S» 

936 LINE<Xm,Y<?>>-<X(l2>.Y<12>>,-8<LI* 

E-<X<lB>,Y(18>),-8>LIN£-<X<7>,Y(7>) r -8>C 

0UL* -BiCQSUB728B:XF*Xt 12) -6= YF-Y<!2>: XD> 

X'7::YD*Y<7!TC0UL*B:C0SUB7eMiXF*XD-YF=Y 

'1B:-S:C0SUS7BM 

!B38 LI«lXU>,Y(i;>-<XI81.Yl8>>,l:Llll£- 

■'■ I! .,V<llJ>.nL]NE<X<3>,Y<3>>-lX(9),Y< 

9)).-BiLINE-<X<!3>.Y<13>>,-BiLlW-<X<31, 

Y'3.J.-8:CDUL'-8:IL0SUB7aB«:Ll«E<Xi3>,Y(3 

t>-.x<l3>.YU3>>. l:>:c^X'3»:xF*XDiYB.Y<3> 

»111 YF.YC9»C0UL-BiGOSU87t«e 

1B4B XO.X(13>*l:YD' 

icoui-ei 



:CDSUB7?88:L1M 
3>,Y<3>>-<X<13>,Y' I3)>.I:L0CATEC<13>, 
" "IIITCHRI<644i3)l 



1338 LINE'> 
C.'.IEC! J7..L 



■>fl8EH-jaBJ»-i 



: -*8C«it-'ACDN-:eOUL-l 



1546 -0-UBBBB8:LlNE'Xi3>,Y<5>>-lXl4> 
>>.liL0CA*E6, 12lPRINT*0r lAiClEW! 
VL96P-:C0UL.l:&QSUB72Be 



■-3:&0SUB728B:LHIE-'*' 3.>.m 3 
3--i,Y<3n-<K(i>,i. : ->.e;LiME 
•1 ■.8:LOCfiTEC<l>.LVl>:Ct>L0R8: 

1568 PlhY-L96PPP-:lOCAT£S.14: 



!>>,-B!C0UL 
. UHME'Xf 

■:■:■.- . r ce j 

RINTCHRIi6 



"216 RETURN 

l"BIB HATA !?5. 187. 17?. 15B. I'5. 187,175, 1 
li- 1-5.66. 17?. Ml. (-5. 158.1 75, 16 7.E7R. j - 
'■•I: :. 16 5. £53. 39.2 15. 185, £55. 41.; 15. 1 87. 



258 LOCMTE»,e:PPIMTPonn. |-i,r, del iiw 
ijfti'i ^LOCATES. MPBINI-Oel i.ilns ->ar t 
t= ■:*rr»s-i :LOCfiTte.f:PPINT"» l'»ide de* 
'_otes-;:L0CftTE6,3:PBlHT-(*u Inimli ABt 
■;: Ct>»8:Lt>«3iCF*19-LF*LD 
-68 L0CATEB,3:PRINT'sABFG=-:-LIN£lNPU T S 

£78 Sll>'AB*.AB-iS2t°'BA*BA-:S3t''A8*BA-i 

S4l*'BBaAB*:lF 'S»-Si*>0R<St-S2»>OP'SMS 

?t >0RlSf-S4*> THEN C0SUB86B6 ELSE COSUBB 

766:0010268 

238 LOCATES, 51PRIKT-sAClH*-;:LINEINPUT ? 

=98 Sl»='«C»SC-:SSi«*Ca»Cfl-:S3*"-|»tBCfl': 

S4|-"C(t«nC-: IF <Sf ■S1*>0R<S«-S2»>QR<S*"S 

31 ■0R'S»-S4i 1 THEM G0SUBS68B ELSE COSUBB 

'B8:COT0288 

388 L0CATE8.3iPRlNT-*BCOE-*::LINEINPUT S 

1 

318 Sl*--BC»BC-:Se*--C8BCB-:S3«=-CBBBC': 

S4**-BC*CB':1F iS*=SI*>OR<S**S2*>o»<S*«S 

3I'0R<S(<S4(> THEK C0SUBS68S ELSE COSUBB 

?BB:C0T0388 

368 LD-8:CF-25:LF = 3:GfJSUB8BBe:G0SUBie87B 

378 LOCATES, SiPRINT'On * done :*;:C0HS0L 



■:■• L0C«TE8.3!f 
>.l •,Y(l))-<X(6i 
398 L0CHTE8,6;f 



'jftBFG '-;fiB*;:B0>lF'>; 
■),1IPL«Y-L96PP* 

■ >. !: PLAY "I.96PP*: LOCH 
J6C*J:C0UI--6:C0MS0L 



i -' - F .. I 



CD 



5BB E0L0P8-CLS 

318 X0-X<18XYl)-Yi|8)!Xr.X> 12>!YF-YtlB>i 

CLrUL-eiC0SUB78Be:»:D'XF:YD-YFiXF»X.e>iYF» 
■■ i :CCHJL = -8:C0SJB78BB 
528 Xt>"X<ll>:Y0-Y. I1>:XF = X'I '!YF-=YtlHC0 

UL-e:cosuB7eee 

538 LIME<X'7J,YI7>.-<XUH.Y(Il>"LIHE-l 
548 FOR 1-9 TO 1£! LQCftTCCll i, LI I J? PR I NIC 

MB«. S*.T>1MEXT1 

55e cosuBeeee 

368 LF-9!CF-19:C0Sue88ee 
578 IF 1»=I3* THEN 7Be 



610 L0CBTE8.8ILINEINPUT PHt 

6£e !F (PH*"'jfi8Fi;«sa8J«*>0»iPH*»-n»8JX" 
iHBrC-' THEN LO-B:CF-£3:LF>2:C05UB 8688: 
G0SUB888B ELSE LC<2:LF'LD:C0SUBB78e: GOTO 



1848 XE>-Xil3>*HY0«Y<|3>!XF.X<9):YF"r<9> 

iCOUL-8iGOSU87Bee:C0UL-HG0!iUB74B8tL0C8T 

EC.13>.L'I3>:PRINTCHRI(64*I3>[ 

1838 FOR I-Y<1>*2- TO Y<8) STEP3=PSET (>:< 1 

'. I ,-8tNEXTl:L0CBTEB.I8iPRINT-DDnt iSCl 

186B GCSU8BB8B 

!'•'•? ' Pom'. N >uml IriMlilion .*.». 

tl88 Lf-lHG0SUBB8ee:xD.X< 1 1 ): VD-v< 1 1 :■:)% 

F«X' 1 .IYF-V1 1 >iCOUL'-e:C0SUB7888 

It 18 XD«X' lUYO-Yi 1 >[XF-X<I4J«TT"Y<l*HC 

0UL-B!GOSUB7ee8:LOC(lTECil4'.L<14i:PRINTC 

HRf'64*14fl 

1128 /D-Y(3)!YF>y 14 .-4: K0»XI5> > XF-X'5>: 

CCUL«eiG05UB7eB8 

H38 XP»X(14>IYB-Y' l4>iXf.Xi4>:YF-Yi4>tG 

DBUB7SM 

1 148 Gosu893ee:cosuB96eetGosuBaeee 

1138 If I1-I3* THEN I3B8 

1168 LOCflTE6.e:aTTRBl,e:PfilNT1*<2»j:F0R 

!=1 TO S:L0CflTE3,2«l:ATTRB8,B:PRlNT--";: 

8TTRBl,e:PRtNTT*(e*I):tNEXT KATTRB8, 8 

1178 S!U>«-«NHBE-:S*<S.""*ENftB-:S*i3> = - 

sBENR' , iSli4)'*5f>BEN"iS*i5>--SEB8N-:S*>6i 

■ iNEBti-:S*i7>--irtNEB-:S*ie'--*8P.NE- 

1188 LOCflTEB.lBJPPIMT-Rlnri complete i*J 

■LIG*13 

1198 S»--ifcBJf-:SQL = e:G0SUB7388 

1288 Sf l)>-iftC[m-;St<2>«-iNflCD-!S*l3Ji* 

sPNhC-:S*-4..'iC&N&-:S*<5^-"sN0CH-:SI'6'' 

= -5HNDC-:S*(7>>-sC8NP-:SH8> = -iOCfiN- 

1=18 S*'-sACnK-:G0SUB7588 

liae SH I>--iEN0-:S*i2>*-jDEN-:Sf<3>--i« 

t.E-:St«4>***DNE-:S»<5)»-fE(>N-iS*i6'»-S«E 

C('i5«--*flBC-iS0L-6:G0EUB73ee 

li'38 G0SUBB888 

1299 ' Oi A8JK wan ABEN 



618 



GLJ 



t PO* , 



: :Mue£:CLEHE.nO-l. ll:(L0SUB-:F0R N=N8 T 
H8*143:REHP liPOfE M. t : NE::T: GOTO! 
2 POP M8=lHt>F78 TO (H7F7B STEP-tH2BeB:PO 
KE ne,l:IF PEEKiMei = l THEN RETURN ELSE N 



12»:N=YU2>*1:C- 

ioMH-Yiie-j:ouL-T:GosuB74ee 

":0 e-X' 16>iL-Yi I6' = P=Xi I5>:N-V. 13'!C-Xi 
11 ■Jrt-V 1! .!C0UL'31i;0SUB7488 
728 FOR 1-15 10 16:L0CATEC ■ 1' .L ■ I ■ : PRINT 
~HPt<64»l J1INEXTI 
738 LE»8:CF>19:LF-3:G0SUB8888 
■46 L0CP.TE8, 16: PR int-sGl. J=5P0K"; : LOCATES 
.12;PRINT-Eo r»isor. de la* J :L0CBTE6. I 3 = P 
PINT-tr»nsl»Hon "; : 8TTRB1 ,e:PRIMTT*<8>; 
:-TTRB8.6 
... .... ; . . . 

"76 B«Xi7>:L»Y(7>.l:D.Xil2):N-Y<12>*UC 

;: 16>:H-Yue>:COUL»-8:COSUe74BB 

736 B-X'l6>iL«Yil6>:O.Xcl5i:N=YH5:':C-Xi 

1 1 •: rt.Y( 11 ) : C0UL=-9: G0SUB7486 

785 FOR I=Y17>«1 TO Y<16> STEP 3:PSETcKC 

-!•, l>,ei«EXTIsXD=f;. :e: :rt=Y< 1B>iXF-X<12> 

:YF=Yi 12>:C0UL-8:G0S0B?e88 

7?9 ' D« FBGL Mrs GAOP 

3"8 L0«18ICF«l9tLF-13:COSUB888e:FOR l=Y' 

I6>*1 TO ¥< 11 J STEP 3:PSET<XU1),I>,8:ME 

XTI:XD-X(lli:Yt)-Yi 1 1 >:XF»XU5>! YF"Yl 13 > I 

C0UL-e:G0SUB76ee:XD-X' 16 ' = YD'YI 16): GOSUB 



: RETURN 
3 [■..TH52.54. 1 
~ 128.182.231.195.138. 1.183.231,195,14 



1.189,232,18, 



2.95. 

.247.96.43. 189.23;;. 

4.46,52, 2,32 

4 DATA16.134, ■ " 



8.37.92. 142,64. 8.13 
:, 198,64, 166.238,52. 



820 LOCATES, 16:PRINTsFBLC=sGA0P-:L0CATE 

».12:PBINT-En raisoo de !»'; :L0CATE8, 13: 

PPINT'tr»nsl»ln>n *: : ATTRB! . 8:PRINTTI<8) 

i:ATTRB8.8 

838 XI-X(l2)iVl-Y' 12):X2-X(7):Y2-Y<7>tX3 

•X(6):Y3-Y<6>>X4-X<2):Y4-Y(4):C0UL>-e:C0 

SUB726e:C0LORe:LOC8TEC.17),L(17J.e:PRlNT 

CHR*<64*ir 



.:-< = : 



■:':- = ,■ 



!5>:XE=XU6):Y2=1 



16>: 



86.228,38.251.58.97,46.13 0SU87£ee:L0CATECM2>, 



6.48,86.36,237.86, 189,232, 18.37.52,48. 1 
7.254,232, 186.228. 3B. 221.58. 97,33.16.48, 

1. 186.228 
5 PHTa3B,2e5,58,97, 196.16, 189,232. 18.37, 
25.48,137. 8,248,148.95.64,37,183,284, 4 
.18.189.232,18.37.9,74, 3B, 248,196, 13,189 
.232.18.52, 1,196. 16,247,96,43.189,232, 1 



3e GO$UBi4eee:cosuBieeee 

99 'Tnantlc ABC de d«»*r( 

188 ClS:SCREEN8.7.6:l1NE'X' l>,Y(I>>- 

>. Y'2>):LINE-'Xi3i.Y<3>)tLINE-lX<l), 

■:PLAY-L96PP* 

119 FOP 1*1 TO 3:L0CATECU>,H1>,B:P 

CHR|.64>I)f:PLAY-L?6P-:NEXTI:C0NS01.E 

U'8 LOCATES, 23:PRIHT-ABC est un trie 

MR! 91.i«'6C*tCHR*(93>!-PL«Y*L»6P- 



■■< 127 ■; 



''.£■■ 



B58 X0-X< 

UL-P:G0SUB7BB8:XC"X'6>:XF.XP:YE>-Y<6)il 

v- 7 -:<;0SUB7eee 

668 L0SUB8888 

699 ' De sGAOP utrt sLAKJ 

986 G0SUB8888 

916 L0CCTE8.8:P»!NfN»is sGLJ-'POK"! 

92B B-K(7>iL-Yf7 -:£•-«. 12 >:N=YM2' : C = X' 

>:H-Ylie>:C0UL = -.8:G0SUB74B8 



11> 



'11 



288 C0LOR8:B0X<> 
Bt-L96PP-:B0X'X' 
y-l96PP-:LIHE<X< 



£18 FOP I»4 TO 9:L0CATECU).L'I>.I 

CHpe.64»I);>PLAY"L96P-:l»EXTI 

228 CL5:PRINT-A8FG, ACIX el BECC I 



i;8 C0SUB9386:C 



>6ee:Gosu8eeee 



INT 968 L0CBTE8. 18:PPlNT-ront sLA* J=sGAOP" : : 
3,2 L0CBTE16, ll:PPINI-=£rBLC';:G0SUB8eee 

978 C0L0P71FDR 1-15 TO 16-'L0CAtEC i I> . L 1 I 
91 e .:PR1NTCHR». -2.::NE<Ti:P5ET.xit5',Yi 15>> 
"*C .1 

988 LOCATES. 13:PRINT-Fm-ileBent. on a l" 
•2: ::L0CATE8, 16:PRlNT'iABFG-sA8JK' : 

998 cosuseeee 

999 ■ De CIM vers B>H 

1868 XD=;<i 13-:YD=ii 13 :XF=<. 3.:YF = Vi 3;:C 
= PL 0OL = -8:u0SUB7eee-:CL0P8:L0tOTECU3),L<13 
PLA ',e:PRINTCHflf<64*13>; 
LIN IBIS LP«B:CF=19:LF-16:G0SU88B68 
X'2 1828 L0CaTEe.6:PR]*T*L* tr«nsl«tton ";:fl 
TTRei.e:PRINTTt!i:';:anRB6.e:L0CATEe.l:P 
INT PINT-eMrjine iICfl = ;iiH» ■ ; : PLAY"L96PP" :G0 
SU88868 
tr 1838 C*X(3>:N«Yr3>:t-=X<9>:N=Y'9>:B-X<13> 
AB :L=va3>:C0UL = -8:G0SUB7488::';0 = x. 3>:XF^XD 
!-,D"Yi3'-ll:YF-Yf9':COUL-8:PaS-.l:G0SU87 
688iLINEiX(3).Y<3>>-<X' 1 3>. Y< 13> 1, 1 : C-xT 
1 :H-Yil liB-XUl :l-Y- II ■ : D*X' 8>:N-Y<8 . 



7199 " Trapez« p 
72B8 LlNE(XI.Yl)- 
3 .C0ULTLINE-1X4, 

0UL=P-(YI-Y3>/<X: 
7218 FOR V-Y3 TO 
■ P.V>,C0UL1«XT 
7228 RETURN 



M «-l 



IlllO! 



■ X2-X1 1 



■If 



7316 FOR > 

'Xl»X,Y3*P*X>,-8!L!NE'X2oX.Y2*PRX>-'X2- 

.Y4*P8X>,HNEXT 

7328 RETURN 

7338 ' 

7358 FOR Y-Yl TO Y2-1 STEP -ULINEiXl*' 

-Y1>-P,Y>-<X3*<Y-Y1)'P,Y>.-8:LINEiX2*h 

Yl> 'P, Y»(Y2-Y1>)-'X4*'Y-YU/P, YKY2-Y1: 

.llNEXTlLIN£(Xe*(Y-Yl)'P,Y*lY2-Yl>>-fX< 

.Y-YI)'P.Y«IY2-V1>1. 1 

7?66 RETURN 

7486 LIHE(B,L)-<C.H>,COUL:LiNE-'D.N'.CC 

L:LINE-<8,L*,C0UL 



. I NE ' C. I 



■ |,l 



:C'.il:i 



. 11 >:Y3-i 



11-: 



;I8>:X2»X(2):Y2 
l=Xll>: 



7438 RETURN 

7499 'Coap. surf. ni-jllHo-irjMc 

7586 L0CATE8.LIG!PPINTSS.-=-i:C0LOR4iLI 

EiNPUT Rf 

7518 FOR 1*1 TO SOL: IF R*=S#U • THEN 71 

8 ELSE NEXT1 

7528 LD-LIG:LF-LDiGOSUBB7ee:GOI075ee 

*538 LIG*LIG*|:LD-LIG:LFiLD:C0SUB8688 

7548 RETURN 

7999 ' Touena traunl 

seee is-inkeyiuf (i»<>ll*>*no<I*<HWi 

ndiii i3i' THEMeeea 



XF-K0lYI>-Y(7)lYF*Yt 11 > t COUL 
XF-X(l>-2iYF-Y'l>JCOSUB788e 

■ ■ r*E-< ■ 



HEN EXECiMS: 
G0SUB73 3829 RETURN 

8599 ■ R«Poact 
I 8688 CLS:C0L0R2:PRINT-BIEN ' 

NTCHRI' 2404DOSOL8niS105D004N!':CL5! 



I ,YCn,0,I:XD-X<ie>lYD-¥l 

* . 'i :G0SUB788e 
1756 G0SUB93ee:G0SUB8e6B 
1399 - ft ACNK ucr* ACDN 
14B8 LD-1JLF-LD1G0SUBB8B8 



18):XF*X<2)1YF 



'■3>:G0SUB71 



■«BC«K»iACDN- 



1428 L0CBTE6.l:P 

1448 XD = X<U»:YD' 

0UL=e:GOSUB7B89 

1468 XF-X<9>:YF>Yi9J:G0SUB7Bee:L0CATEC. 1 

>.LI 1>. 8: COLORS, 1 : PR1 NTCHR*<65>; : COLORS. 

1478 KB-XU3»iY0-Yr|3)iXF-X(3):YF-Yi3'iC 

, ;U6768e:YD-Y'l :. .] : YF*YI8M XO-XIB J 1XF«X( 
B>iCOSUB7HI 
88 G0SUB8BBS 



8699 * Repfaus-e 

8788 CLSiCOL0R2:PRINTTAUX. 
-iPN*i:PLAY-L2401flI 020001 SI 

S IMOO M 

3718 RETURN 

8799 ' EffaceHnt paue ou I 

ease 8dxf<ce>,ld>-icf.lf>chr! 

8:REIURN 

6999 ' Stuclette deurc 

9888 COL0R8:BOX<X(&>.Y(6->;-' 

0X(Xll>,Y<l)>-CX<9).V(9»>tLI 

)-lX<3),Y(31>'LINE- 



,- .,:w„„ :l 



8>:XF-XI2>! 

9818 XO-Xtl 

0SUB76BS 

9828 XD-X<11>:Y0>Y(1I)I1 

0SUB7B86IXF-XD1YF-YDIYD' 

9838 YE.-YFiXF-XC|4):YF-' 

9B4B XD-XFJYD*YFtXF*X'4 



Y(2)t:XD-X< le^YD- 1 : 
C0UL=6:GOSU9788e 



XF-X<3J:YF*1 



':GB5UB78B8 
■:.".riii.Kt798e 
'Y(4):G0SU87i 



499 ' 



ENl' 



r *2B!G0SUB9SB6 
1518 L0CBT£e.8:PRINT'ResuPons :-;:L0CATE 
6.2:PRlNT--ABEN*s(.BFG'::L0CBTE8,3:PfiINT- 
*ACD«l*«AClH-i:L0CATEe.6iPRlNT«lo'-j :•;: 
C0NS0LE8:L0CBTE6.8:PRINT BBC*! iPRINT-- s 
rt8EN.«BCDN'i:CON50LE23,24 
152B 8OXF1 " 



-,B:LINE-<Xi 
■lX<a>-2** 



,8:l!ne-' 



■ . H:i. 1HE ■ 

■ . 0- ■. I Mt ■ ... ■ 1 .- . ■ ■ 



'.8:L1N£(X<12>, 



(6),Y(6>>,8:L1H 



_ i,-8:PSET( _ 
1536 PSET(24,I2>- ",7:PSET<X(12),Y<12>>, 
6:C0LOR7:F0R 1-18 TO 13:L0CBTEC< I >,L( I >: 
PRINTCHR*(32>;:NEXT[:L0CBTECI8).L<6),e:P 
RINTCHR*<32»:COL0R8:L0CATECi8)-I,L<8>-i: 
PR1NTCHR*(64*B>;:PLAY-L96P- 
1548 CDSUBB8B8:LDCBTE8,12:PRlNT-0r sBBC- 
sEND-s:PLAY*L96P- 

1558 C=X(2>:H*Y<2>:B-Xa>:L-Y<l):D=X<3): 
N-Y<3)!C0UL=-8:GOSUB74B8:LIXE(Xie>,Yl2)> 
-X'3J,Y(3>>.l:LINEIXi3)-l,Y<3)>-<X<l>,Y 
' f '.B:l1NE-<X(2»,Y(2>.I > . 8: LOLHTE r ■ I ■, L 
' 1 :COLORS:PRINTCHR*<63); 
1568 C-Xt5>iPfY(5):p=Xi4):N*Y<41-B-X(14) 
:L=Y(14>iC0UL*1:C0SUB74BS:PLAY-L96PPP-:L 
0CATEB,14!PRINT*I1 s'en suit que !"; 
1578 C0NS0LE8:L0CATE8,16:PR1NT BBC*;--iB 
CDE"i'L0CATE7.iB-pRIHT-=';: PRINT BC»;:C0 
NSOLE23, 24 

I58B PLAY-L96PPPP-:CLS:L0CaTE8, 22: PR INT " 
" .0CBTE8,24:pfi 



9858 YE>*Y(5>iYF*Y' 14 .. : XF=X0: C0SUB788B 
986B FOR l-l TO 14:L0CATEC I >.L< I >:PR1 
CHRt(64H);:NEXTI 
9878 RETURN 



9516 COLORS, 3:L0CBTE38.16iPRINTl II! iLOCfl 

TE38. !9:PR1NT12«; :L0CBTE38, 22: C0L0R7 

RINTCHRt(32);:COL0R8 

9528 RETURN 

9599 ' Choix sup. »s>tc 'S- 

9688 1 3* = -S-: COLORS, 3: LOCATE 38. 22 :PP 

— C0LOR8.7 

'618 RETURN 
9999 ' Initialisation 

.6868 D]HX<16>,Y<I6>,C<17f,LU7>,T*<7- 
8 FOR 1*1 TO I6:REBDX(I>,V( I j : NEXT 1 

8B28 FOR J-l 10 17:REBDC( 1 ),L< I >:NEXT1 

8838 DEFGRf'8>=6, 255, 6.238. 169,239,169. 

8648 DEFCRf<l>«6, 255. 6,231. 133,135. 133. 
229:0EFGR»<2)=6,255.6. ! 83. 165. 199. 165, 18 
:DEFGR*<3>-6,253,6, 1 19. 37, 39, 165.231 :0E 
GRt<4>*6,235,6,47, 184, 168,48. 47:DEFCR*> 
.'-6,233,6,231,164,231,164,231:DEFGRf<6> 
6,235,6,233, 169.237.171,169 
8858 DEFGR.<7>*6,255.b.236. 138.138,133, 
76:DEFGRt<B>=e.B,B.255,B.255.e,8:0ErGRt 
?>-B,8.4,254,l,254.4.a:DEFGP*<18>=64,24 
1,64,66.67,74,58,2 



IN' 



sle 



1 :py*:' 



!<15>! 

:COUL>|:G0SUB74BB:XF*X(12)-6: 
.X<7>:YD.Y«7.':C0UL = 6:GOSUB7B8 

i'( ie.'-5tcosuB78Be 



1598 G0SUBBBS8 

1599 ' S-mtlette ou (rtcomntrr 
16B8 COHSOLEe^CLS^PRIHT-Voici la I 
limrilt :-;:G0SUB98SS 

1618 LOCBTE8,2iPRINT-Essair ot rmti 
:L0CATE8,3:PRINT-Ia dcaonstration-) 

1628 L0CBIE8,23:PRINT-Veu.-tu revo: 

rieaonstration '.O'l- ?■;: n$- INPUT 1 > 

1638 IF A*>*0- THEN CLS:G0T0188 

1648 CLS:80XF<4,9)-'34,14)- ',3:B01 

-'34,14)CHRI(42),1.3 

165B LOCATES, B,B: COLORS, 7:PRINT'I1 

-0CBTE3. IS' COLORS, 3: PR INT*! 



P3C v 



0CBTE3. ll:PRI*nsPCi29 
NlNr'relation : -;PY»i:CO 

26STEP4:L0CATEC,I2:PRIN 



LOCATES 
L0R3:TOR C 
TCHRSU27>! 
1666 NEXT CiL0CBT£27.12,6:PRlNTSP 
0CATE5.13:PRINT-alors il est ret 
n A. -;:COL0R8,7:L0CATE8,22,B'PRI: 

6999 ■ Tratei point 1 I las' 

7688 IT XF*XD THEN 7B4B 

7BIB P-iYF-YD>'<XF-XD> 

7B15 FOR I-XD TO XF-3 STEP 2 

7626 PSET'I,YF-P8iXF-I>J.C0UL 

7838 NEXTI:G0TO787B 

7848 FOR I*YD*3 TO VF-3 STEP2 

7656 PSET<X0,I>.C0UL 

7668 NEXT I 

"878 RETURN 



ft FLt- 

•GRt(l> 
8865 NEXT I 
6676 CAR»>CHR*< 
*BB**CBR*!flC* = 



8888 RETURN 



>"GR*< 16'»GRt<- 



1 1*8 1 



ELSE ' 



;-*CAR*:BC«--BC'*CAR*: 
iC«*PYS = ABCs-CHRS'61>« 



.9tCKR»<42>,3 
836 COI 



iTTPBl. 



THAGORE-:60X( 
:FOR j 



FOR 1-22 TO 5 STEP-18:li-2»J42:L0CATEI! 
■ 8:LT*-H1D»(TITS, j. 1 .■:PRINTLT*:PLflY'T3 
04DO--LOCRTEK.I:PR1N1- -:MEXTI :L0CAT 
E>.5iPRIHTLTl:NEXTJ 

0CATE12, l2::COL0R4.7:ATTRBS.e:PR[ 
AZAT 12^84": LOCAIE6. !4i COLORS, 3:P 
llcfe SARGENT LYON 69863* 
_0CATE8,22:C0LOR2.8:PRINT-APPUYE: 
SUR UNE TOUCHE POUR CONNENCER" 
4666 Qt*INPUTS> 1 

4878 CLS:SCREEN8.3.3:C0LOR.5:l0CATE7.13 
"TTPBl. l:PRlNT-REGeRDE BIEN": f.TTR88. 8 = P 

L96PPP'iCLS 
4698 RETURN 

5668 ' Coordonnees points 
5816 DATA 214,185,214.65.279.183.319.48 
i34. 6. 1 74. 65. 1 74. 185.214. 176.279. 176. 17 
136.174.178,189.195.239. 176.254.48. 189 
145.174, 143 

6886 " Position no»s point. 
6816 DATA 28.12.26.7.35.13.39.3.36.8.21 
-.28. 12.26.22.36.21.28.16.28.21.24.14.2 
32.3.24,18.28.16.23.11 
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Formation a I'assembleur 



COURS D'ASSEMBLEUR 



Deja des mois que vous plan- 
chez. les uns grace au cours 
pratique, les autres sur les 
connaissances piutot theonques 
(et relhoriques ? ) de I informati- 
que en general el de la pro- 
grammation en assembleur en 
particular. 

Pour cette semaine un grand 
mouvement de reflexion du cole 
du 6502 de I'Oric. Mais les fana- 
liques du 6502 de lApple ne 
perdenl rien pour attendre la 
semaine prochaine sera pour 
eux I 

Depuis le debut nous avons eu 

les cours suivants : 

No 55 - -> ZX81 

No 56— ->ZX81 

No 57 — > ORIC 1. ATMOS 

No 58 - -> APPLE 



No 59 


-> T07. T07 70 


No 60- 


■ COMMODORE 64 


No 61 ■ 


->ZX81 


No 62- 


-> ORIC 1. ATMOS 


No 63 - 


- APPLE 


No 64 ■ 


-J-T07. TO7 70 


N0 65- 


-> COMMODORE 64 


N066- 


->ZX81 


No67- 


->ORIC 1. ATMOS 


N0 6S - 


-> APPLE 


No 69- 


••> T07. T07 70 


No 70 - 


-> COMMODORE 64 


No 71 - 


->ZX81 


No72- 


->ORIC 1. ATMOS 


No73- 


■•APPLE 


No 74 ■ 


->T07, T07 70 


No75- 


-■ > COMMODORE 64 


No76- 


->ZX81 


No 77 - 


->ORIC 1. ATMOS 


No 78- 


■> APPLE 


No 79 • 


••> T07. T07 70 


No BO- 


--> COMMODORE 64 


NO 81 - 


->ZX81 



flesle a defmir ce qui rend une 
routine meilleure quune autre 
Cette enigme se resoud relative- 
ment simplement en se basanl 
sur des notions elementaires de 
logique. Je ne vous bassinerai 
pas le cerveau de demonstra- 
tions mathematiques absconses. 
aussi je me contenterai de vous 
enoncer les resullats qui servent 
de base de |ugement et de 
choix entre deux programmes 
equivalents Trois crileres sont 
generalement retenus pour et- 
lectuer un choix de ce genre 
Nous allons les definir mainte- 
nant pour mieux pouvoir nous 
rendre compte de ce quest le 
jugement Iheorique dun algo- 
rithme Nous allons supposer 
que nous disposons de deux 
routines parfailement equivalen- 
tes dans le role, mais program- 
mes de maniere rigoureuse- 
menl diHerente 

1. Rapidite : ce critere de choix 
ne pose pas de probleme fonda- 
mental pour le mettre en appli- 
cation. Pour connaitre la rapidite 
dune routine, deux methodes 
sont applicables. I'une soutfrant 
d 'imprecision I autre etant plus 
longue a mettre en oeuvre pour 
des programmes importants. 

a. m&thode empirique : pour 
connaitre la rapidite relative 
d'une routine par rapport a I'au- 
tre. nous pouvons tout simple- 
ment chronometrer le temps 
d'execution de chacune d'elles 
et comparer le temps mis pour 
arriver au resultat. Si cette me- 
thode ne presente aucune 
complication de realisation, par 
contre eiie ne sera jamais suffi- 
samment precise pour les puns- 
tes. Pour eux nous allons voir 
I'autre methode. 

b. methode theorique : a chaque 
instruction, pour un micro-pro- 
cesseur donne. correspond un 
certain nombre de cycles d'hor- 
loge. Supposons que I'horloge 
de votre micro toume a 1 Mega- 
hertz. Une impulsion est emise 
par I'horloge tous les millionie- 
mes de seconde. Suivant les 
micro-processeurs, un cycle 
dure une, deux, trois ou deux 
impulsions et demie (par exem- 
ple). Bret ce nombre d'impul- 
sions est determine par le cons- 
tructeur du micro-ordinateur. A 
partir de la vous disposez dune 
unite de mesure, le cycle, et 
dune certaine sequence d ins- 
tructions dont chacune dure un 
nombre determine de cycles. 
Vous pouvez done facilement. 
en decomptant le nombre de 
cycles, connaitre la duree dexe- 
cution dune routine. Meme si 
cette methode est la seule par- 
faitement rigoureuse, elle ne 
sera simple a appliquer que 
pour les routines courtes. 

2 Occupation memoire en- 
core une fois. cette idee-la ne 
parail pas trop complexe a ana- 
lyser. Malgre tout tl est neces- 
saire de la subdiviser en deux 
parties si Ion veut disposer dun 
argument valable pour te choix 
(inal entre les deux routines 
a. Longueur du programme : il 
s'agil simplement de connaitre 



le nombre doctets occupes par 
chacune des routines, 
b Place necessaire a /execu- 
tion de la routine : de ce point 
de vue. nous allons avoir plus 
de peine a quantifier ce parame- 
tre. Malgre tout, vous devnez 
etre rapidement capable desti- 
mer le nombre d octets immobili- 
ses pour stocker les variables 
durant I'execulion de la routine. 

En fin de course nous aurons 
done pour chacune des routines 
un nombre total doctets neces* 
saires au bon fonclionnement de 
chacune d'elles. 

3. Complexity de I'algorithme 

ce critere est le plus complexe 
(cesl le cas de le dire) a analy- 
ser ll fait appel a des notions 
mathematiques que vous n'etes 
nullemenl oblige de posseder 
Sachez seutement que lessen- 
tiel de la recherche et du caicul 
se situe au niveau des bou- 
cles que vous integrez dans 
votre routine La complexite se 
note a I aide dun O 

Si votre routine ne comporte 
que des boucles simples, sa 
complexite sera : 

= n x (nombre de boucles) 

Si votre routine comporte deux 
boucles imbnquees I une dans 

1 autre la complexite sera alors 
egale a 

O - ni2 

Admettons mamtenanl que voire 
routine compte huit boucles dont 
quatre sonl imbnquees les unes 
dans les autres et dont les qua- 
tre autres sont simples Nous 
nous trouverons dans le cas 
dune rouline de complexite 
egale a : 

O =|nT4)-H4xn) 

C'est maintenant que le gout 
prononce des mathemaliciens 
pour la simplification mtervient 
Amsi lorsque n est tres grand 
(ce qui suppose que la routine 
aura de nombreuses donnees a 
trailer), la valeur de (4 x n) de- 
vient negligeable lace a la va- 
leur (n i 4), Essayez deffectuer 
ce caicul avec n egal a to. 100 
et 1000 Dans ce cas. nous 
pourrons dire (en ne faisant que 
mettre nos pas dans ceux d'll- 
luslres predecesseurs) que la 
complexite de la routine sera 
(apres simplification et approxi- 
mativement) 



Le choix final entre les deux 
routines se passera done de la 
maniere suivanle : 

1 routine la pus rapide 

2 routine la moms encombrante 

3 routine la moms complexe 

ll est bien entendu tres rare 
qu une meme rouline soil mai- 
tresse pour les trois crileres II 
sagira alors deffectuer la selec- 
tion en fonclion de I application 
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a laquelle est destmee la rou- 
tine Si elle ne doit traiter qu un 
petit nombre de donnees. les 
deux premiers cnteres seront 
preponderant^ sur le troisieme 
En revanche si cette routine doit 
tourner longtemps. vous devrez 
vous metier de la complexite de 
I'algorithme car c'est lui qui de- 
termmera de fagon certaine la 
rapidite dexecution de la rou- 
tine. 

Mais lout ce qui precede dans le 
choix entre les routines releve 
plus de la Iheorie que de la pra- 
tique En general, ce qui conduit 
a choisir une routine piutot que 
I'autre se resume de la facon 
suivante la meilleure sera la 
plus equilibree des deux routi- 
nes en competition Par equili- 
bree. | entends cede qui ne sera 
pas trop lente et qui noccupera 
pas trop de place memoire lout 
en travaillant sur I algorithm*? le 
moms complexe possible. 

Bien sur I importance de chaque 
critere par rapport aux autres 
nest qu une question denviron- 
nement Si vous disposez de 
256 Ko de memoire. le critere 
concernant I occupation me- 
moire deviendra moms impor- 
tant, les deux autres devenani 
pnoritaires Malgre tout il reste 
essentiel de se rapprocher d un 
ideal tel que I'algorithme soit de 
complexite avec une occupation 
memoire minimale et un temps 
d execution ndiculemenl courl 
Le fan de se rapprocher de ce 
modele sappelle I optimisation 
dun programme Un meme pro- 
gramme optimise par deux pro- 
grammeurs differents donnera 
un listing a I arnvee fori different 
C'est a ce moment-la que les 
trois cnteres de choix pourront 
s apphquer au mieux pour la se- 
lection du "meilleur" programme 

Vous vous rendez compte que 
ce genre de selection n'a d'im- 
portance qua partir du momenl 
ou vos routines sont si nom- 
breuses quune organisation ri- 
goureuse devient necessaire 
pour la bonne marche de len- 
semble de celles-ci. Mais qu est- 
ce quune routine, allez-vous me 
dire Remontons un peu en ar- 
riere dans ce cours. 

Lors dune sene de conseils sur 
la demarche a suivre pour la 
construction dun algorithms, je 
vous avals fortement suggere de 
subdiviser votre probleme en un 
ensemble de petits problemes 
independants Chacun de ces 
petits problemes peut. si vous 
structurez correctement votre 
raisonnement. donner naissance 
a un sous-programme specifi- 
que. Tout comme dans tous les 
langages evolues. I'assembleur 
permet d effectuer des appels a 
des sous-programmes, et c'est 
ces sous- programmes que nous 
avons I'habitude de nommer 
routines D ailleurs. nous allons 
traiter bnevemenl certains des 
problemes poses par les appels 
aux routines en cours de pro- 
gramme 



L'ASSEMBLEUR PRATIQUE 
Langage machine... sur ORIC 



Pardon, je voulais dire intro, 
mais j'ai giisse De toutes 
facons. y a pas d'intro. ni d'ex- 



PARTIE DU=1E 

Partie dur-dur, meme. 
Le mois dernier, vous avez eu la 
primeur dun formidable pro- 
gramme graphique (bon. jexa- 
gere) qui faisait des zigouigouis 
sur I'ecran a une vitesse propre- 
ment hallucinante 
J'ai explique et commente une 
partie de ce programme, mais 
comme jelais en retard pour 
aller manger, |e n'ai pas pu 
commenter la suite Done, re- 
portez-vous au numero 77 pour 
le listing. 

Nous avons vu le sous-pro- 
gramme d 'addition sur 16 bits. 
Nous en etions meme restes 
tres exactement a instruction 
RTS. qui nous ramene au cours 
normal du programme que nous 
allons reprendre sans plus tergi- 
vefsef £l§vSflta9§. 
Sur quoi tombons-nous avec 
surprise ? Sur INY. superbe ins- 
truction sur laquelle je vais 
mappesantir car Jaime a map- 
pesantir sur les INY.Cela signifie 
"INcremente Y H . Je vous rap- 
pelle qu'Y est un peu (pas vrai- 
ment, mais presque) I equivalent 
dune variable en basic, a la dif- 
ference pres que son contenu 
ne peut etre ni inferieur a ni 
superieur a 255. Lors de l exe- 
cution d'une telle instruction, le 
contenu de Y sera augmente de 
un (incremente. appelons les 
choses par leur nom) Que se 
passe-t-il lorsque Y est a 255 ? 
il revienl lout betement a zero. 
mais en affectant au passage 
deux drapeaux : N (indicateur de 
signe) et Z (indicateur de zero) 
lis seronl automatiquemenl mis 
a un. Avantage. lorsque vous 
taites un petit sous-programme 
du style : 



START ; LDY » 
BOUCLE INY 
BNE BOUCLE 
SUITE : ... 



SO 



Cela permet de (aire une legere 
temponsation en meltant le re- 
gistre Y a 0, puis en lincremen- 
tant jusqu'a ce qu il soit revenu 
a zero, linstruction BNE testant 
en effel le drapeau Z (indicateur 
de zero) 

A noter . il existe bien entendu 
la meme instruction sur le regis- 
tre X, INX. Elle incremente X. et 
a les memes caractenstiques 
quant aux drapeaux quelle af- 
fect e 

Done, nous avons incremente Y. 
il est done maintenant egal a un. 
Passons a i instruction suivante : 
CPY # $ 1A. J'ai deja explique 
I'effet de cette instruction lors du 
cours precedent, je n'y revien- 
drai done que sommairement : 
la valeur contenue dans Y est 
comparee a largument qui suit, 
en loccurence # $ 1A. Si les 
deux valeurs sont elates, le dra- 
peau Z est mis a un, et a zero 
dans le cas contraire. D'ou ['ins- 
truction suivante : BNE START 
Si les deux valeurs sont diffe- 
rentes (Branch if Not Equal), le 



programme se branchera sur la 
routine START Dans le cas pre- 
sent, il va y aller. puisque Y est 
a 1 

Et le programme va se derouler 
ainsi sans encombre , jusqu'a 
ce que Y arrive a la valeur fatidi- 
que : # $ 1A. Bonne idee 
A ce momenl-la. arrive a la se- 
quence CPY # $ 1A, BNE 
START. le programme va 
s'apercevoir que cette fois-ci 
legalite s'avere. it va done sau- 
ter linstruction de branchement 
qui suit, pour executer la sui- 
vante : JMP RETOUR Allons de 
ce pas examiner ce qui se 
passe de ce cote du listing. 
En RETOUR, nous trouvons une 
instruction appelee DEY Accro- 
chez-vous ; elle a le rble inverse 
de INY. c'est-a-dlre quelle de- 
cremente (diminue de un) le 
contenu de Y. Elle atfecte les 
memes drapeaux, Z et N. On 
pourrait faire le meme pro- 
gramme de temporisation que 
precedemment, de cette fagon : 

START LDY # $ FF 
BOUCLE :DEY 
BNE BOUCLE 

SUITE : ... 



De meme. le drapeau N est af- 
fecte : en effet, si Y est a et 
qu'on le decremente. il va reve- 
nir a 255. en mettant le drapeau 
N a un, indiquant par la qui) ne 
s'agit pas de 255 mais de -1 
Vous vous en doutez, la meme 
instruction existe pour X. elle 
sappelle DEX. a les memes ca- 
racteristiques. bref. 
Une fois le contenu de Y decre- 
mente. nous trouvons JSR 
SOUST. Nous allons done voir 
ce sous -programme, qui a de 
quoi agrementer nos tongues 
soirees d'hiver. 

Premiere instruction de cette 
routine : SEC. Cela signifie "SEt 
Carry", soil "met la retenue a 
un". Vous allez voir pourquoi 
tout a I'heure. 

La suite : LDA S 65. On charge 
dans laccumulateur le contenu 
de la case-memoire 65 (en 
hexa). Puis. SBC # $ 28 
("SuBstract with Carry", traduc- 
tion "soustrais avec la retenue"), 
oh lui soustrait 28 (toujours en 
hexa). Or, a ce moment-la, le 
processeur va jeter un coup 
d'oeil a la retenue : si elle est a 
un. pas de probleme, il effectue 
betement sa soustraction et 
c'est bonnard. Si elle est a zero, 
il va so us tr a i re 1 au resultat 
avant de le placer dans I'accu- 
mulateur. Dans le cas qui nous 
preoccupe. nous avons mis la 
retenue a un, done il va placer 
le resultat tout bete dans laccu- 
mulateur. 

Mais ! Car il y a un mais. si le 
resultat est inferieur a zero, pour 
le coup, il va mettre la retenue a 
zero. Et que va-t-il se passer. 
lors de la sequence suivante, 
qui apparemment ne sert a 
rien ? Hein ? Que va-t-il se pas- 
ser ? II va charger le contenu de 
66, avec LDA S 66. lui sous- 
traire zero, done pas de change- 
ment. puis, et c'est la que ga 
devienl vraiment genial, aller 
voir la retenue, s'apercevoir 
quelle esl a zero, done sous- 
traire un du resultat et finale- 
menl le placer dans I'accumula- 



teur. Le tour est joue. nous 
avons fait une soustraction sur 
16 bits avec retenue. 
Cetait pas si difficile que ca. 
Sur ce pnncipe. on peut bien 
entendu faire des additions et 
des soustractions sur le nombre 
de bits que Ion desire, et mani- 
puler ainsi de tres grands nom- 
bres 

Bon. cette soustraction etant ef- 
fectuee, nous avons un RTS : 
nous revenons done d'ou nous 
venons. a savoir la ligne 260, 
Instruction suivante ; LDA # $ 
20. si vous ne comprenez pas, 
reprenez tout depuis le debut. 
vous avez du rater quelque 
chose Puis. STA ($ 65).Y ; 
nous I avons vu dans le cours 
precedent (in english : previous]. 
On compare ensuite Y a zero, si 
c'est different on reprend la rou- 
tine au debut jusqu a ce qu il 
soit a zero, auquel cas on arrete 
purement et simplement le pro- 
gramme. 

Voila. Normalement, vous de- 
vnez etre des a present en me- 
sure d'elaborer des petits pro- 
grammes par vous-meme. Bien 
sur. if reste un paquet d instruc- 
tions que je n'ai pas encore ex- 
pliquees (en bonus.j'en explique 
une ci-dessous) mais cela ne 
saurait tarder 

Oui. une demiere." pare© qu'on 
ne va pas se quitter comme ca. 
Une amusante, bien qu'utile. 
parce que hen ne s oppose a ce 
quune instruction soit a la fois 
amusante et utile. C'est EOR. 
qui veut dire Exclusive OR with 
accumulator, en francais Ou ex- 
clusif avec I accumulates 
Avec cette instruction, il faut 
avoir une representation des bits 
qui composent un octet. Par 
exemple, $ 24 s'ecril en binaire : 
00100100 

On charge laccumulateur avec 
une valeur que Ion choisit (moi, 
je vais choisir $ FF. mais vous 
faites ce que vous voulez), et 
Ion opere de la fagon qui suit. 
On place (par exemple) $ 24 en 
$ 1000. Puis $ FF dans laccu- 
mulateur. et Ion fait : EOR $ 
1000. Les deux valeurs seront 
comparees, el la case-memoire 
1000 modifiee. En effet. les bits 
seront compares un a un. Si le 
bit 1 de laccumulateur est a 0, 
le bit i de $ 1000 restera in- 
change Si le bit 1 de laccu est 
a 1. le bit 1 de $ 1000 sera in- 
verse il passera a un s'il est a 
zero, et reciproquement. Et ainsi 
de suite pour tes 8 bits Que 
peut-on faire dune telle instruc- 
tion ? Par exemple coder un 
programme, en modifiant tous 
les bits selon une. valeur pre- 
cise. Si Ion fait un EOR de 
toute la memoire avec n'importe 
quelle valeur, tous les octets 
vont changer de fagon apparem- 
ment aleatoire. Si Ion effectue 
une deuxieme fois ['operation 
avec la meme valeur, tous les 
octets vont retrouver leur valeur 
initiale. II est tres fastidieux de 
decoder un programme code de 
cette maniere. car il existe 255 
valeurs de codage possibles 
Voila, Le cours prochain. je vous 
donnerai un programme et une 
bidouille qui vous permettront de 
vous servir des 16 Ko de la 
Ram overlay, done d'avoir de 
fait 64 Ko utilisateur sur votre 
Oric. Bye. 
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DEMANDEZ LE PROGRAMME soft-parade 

Achetez vos logiciels les yeux fermes, nous les avons testes pour vous ! 

Nous avons selectionne pour vous les meilleurs logiciels actuellement disponibles en France. Nous ne 
pretendons pas que cette liste est complete et definitive et il est evident que nous y rajouterons regulie- 
rement des programmes. Pourtant, vous chercherez en vain certains programmes quijouissent d'une 
bonne reputation et qui se vendent surtout grace a la publicite et aux conseils des vendeurs qui ne peu- 
vent pas connaitre tous les logiciels disponibles. 

Les prix sont, nous I'esperons, les meilleurs du marche et les abonnes - anciens ou nouveaux - benefi- 
cient en plus d'une remise de 10 %. Si vous etes nombreux a nous suivre dans cette experience nous 
pourr oris rapidement ar river a faire baisser les tar its des fournisseurs pour atteindre I'objectif que nous 
nous sommes fixe: ramener les prix a une plus juste valeur ! 

Les classements sont faits en fonction de I'interet du programme et ne tiennent pas compte des prix, 
c'est a vous dejuger de I'opportunite de la depense. N'oubliez quand meme pas que si le rapport qu an- 
te /prix estmauvais, le logiciel ne peut figurer dans cette page ! 



-nouveau- 



KRYSTAL OF ZONG 

De Taction el de I'arcade. le lout dans 
uri meme programme Incroyable mais.. 



UP'N DOWN 

Jamais vu de route pareMIe, et pourtant ca 
monte el ca descend comme les monta- 
gnes russes de la Foire du Trone 

TAPPER 

Un p'tit coup a servir. facile Cent grands 
coups ? Dur, tres dur et pourtant on y arrive ! 

SORCERY 

Voila un |eu d'aventures qu'H est bon ' 
Pas de probleme de vocabulaire tout au 
joystick Elil est beau 

MACADAM BUMPER 

Lemeilleur simulaleur de flipper etavecun 
editeur de flippers Pourquoi aller au cafe I 

DEFEND OR DIE 

Le plus dingue des jeux d'arcade, chez 

vous. et en st6r6o ! 

MEURTRE A GRANDE VITESSE 

Une enquete a 260 Km/h a mener tambour 
battant, en vous basanl sur les indices lour- 
ms avec le soft 

SERIE NOIRE 

Un veritable jeu de meurtre (Killer) enlre les 
dtfferenls joueurs. Qui embrasserezvous, 
tuerez-vous ou volerez-vous 7 

SURVIVOR 

De laventure. vite et bien servie. en COuleur 
et haute resolution, sans probleme com- 
plexe a resoudre : survivre sera voire seul 
mot d'ordre 

MESSAGE FROM ANDROMEDA 

En voila un super jeu d'aventure, largement 
plus beau qu un camion et encore plus 
largemeni passionnanl 

FOREST AT WORLDS END 

Le bout du monde a vos portes. |uste apres 
le Iroisieme arbre a gauche Un dedale 
d'aventures rocambolesques ou angois- 

santes 

HOUSE OF USHER 

Claustrophobeseloignez-vous. cette aven- 
ture s'adresse exclusivement aux agora- 
phobes. 

BC'S QUEST FOR TIRES 

La course a Techalotte prehistorique. rien 
de tel pour rester en jambe ' 

LUNAR LEEPER 

Des tonnes de ferraitle vous saulent des- 
sus. sachez les eviter pour mieux servir 
voire natale planete 

JAW BREAKER II 

Comme vous n'avez pas peur des plus gros 
que vous. defoncez ces dents qui vous 
guetlent, 

AOUATRON 

Detendre la Torre passe encore, mais net- 
toyer en plus les oceans, taut pas pousser 
A moms que vous ne soyez plus baleze que 
baleze ' 

LE CRIME DU PARKING 

Resoudre une affaire aussi sordide et cra- 
puleuse que le meurtre d'Odile Conchoux 
necessite un sang-froid et un esprit deduc- 
ts ace res Seriez-vous la reincarnation de 
Sherlock Holmes * 



SPY HUNTER 

VouspassezdelavoituredeJamesBondau 
baleau de 007 Un must du jeu d'arcade 

DARK STAR 

Partez a la rescousse de la Gaiaxie. 
sans peur et sans reproche Voire 
ecran n'y verra que du feu en plon- 
geant de planete on trou noir et de 
combat spatial en hyperespace 

ZAXXON 

De I'arcade comme au cafe Et large- 
meni plus abordable ! Un classtque 

qui manquaii au Spectrumiste averti 

PSI WARRIOR 

Des combats a coups d'energie psy- 
chique. des ballades en skate antigra- 
vile, des dizames d heures de recher- 
ches avant d'atteindre la Source de 
lout le Mai Genial 

SPY VS SPY 

Retrouvez tous les documents se- 
crets, piacez des bombes et partez le 
premier de ce pays surpeupie par les 
esplons. Un must pour deux joueurs 

BOULDER DASH 

Depuis Lode Runner, les jeux d'arca- 
de vous ennuyaienl ? Ce probleme ne 
se pose plus dorenavanl vingt ta- 
bleaux et ctnq niveaux pour passer 
des heures uniques 

MEURTRE A GRANDE 
VITESSE 

De la venture, du suspense etde la re- 
flexion. Un vrai polar d'Agalha Chris- 
tie oil vous devenez Hercule Poirot 
Extraordinaire de subtilite el d'inge- 
nloslte 

XAVIOR 

Plus vite. loujours plus vite ' Des kilometres 

de pieces a fond les manettes Heureuse 

men!, pas de radar a I'horizon et le comp- 

teur qui s'envole Waow. c'est le pied 

dacer 

FBI 

Une bonne enquete vaut mieux que deux 
gangsters dans le dos. dans une impasse 
avec un reverbere en panne Un vrai bon 
polar 

3D FONGUS 

Le Pans-Dakar en avion, ca vous dit ? C'est 
tout pareil. on perd la piste, on s'emplafon- 
ne des rhinoceros, mais on se marre bien 

INVASION 

Des Aliens comme s'U en pleuvait, des dan- 
gers a tous les coins de la gaiaxie, de Tac- 
tion el du sang-froid voila ce qui vousguet- 
te des que vous prendrez les commandes 
de voire vaisseau 

COBRA PINBALL 

"Beau comme un camion" vous connais- 
sez. "Splendide comme un flipper" vous 
allez Tapprendre avec ce super soft de 
course Du massage el du bourrage en 
quantite. d'accord. mais aussi en qualile 

BATTLE FOR MIDWAY 

Si vous avez la megalo galopante, precipi- 
tez-vous I'Amiral Fletcher, c'est vous' A 
voire casquette 

FRELON 

Bande de petit sa'opards. vous n etes pas la 
poor trimer! C'est la guerre, el malgre les 
ennemis qui nous canardent. il faut aller re- 
parer ce sacre pont ! Le premier qui cne 
"Maman" a mon pied aux fesses ! 
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APPLE 










t COHAN 


DISK 


A 




3SO 


3 CRIME DO PARKING 


DISK 


F 




190 


3 LODE RUNNER CHAMPIONSHIP 


DISK 


» 


M 


37 S 


4 BRUCF LEE 


;.,',.„ 


* 


M 


BBB 


5SKVFOX 


DISK 


A 


M 


39S 


6 SUMMER GAMES 


DtS* 


A 


y 


440 


7 PAHANOIAK 


DJGH 


r 


n 


ISO 


8 DALLAS 


.■„:,. 


» 


H 


165 


S E PIDE MIE 


DISK 


F 


R 


150 


10 AXIS ASSASSIN 


DiSk. 


» 


u 


MO 


1 1 BC'S QUEST FORT1RES 


QiSfl 


A 




190 


11 LUNAR LEEPER 


DISK 


* 




190 


1 3 AOUATRON 


DISK 


A 




190 


14 JAW BREAKERS 


;..■:.- 


A 




190 


15 ONE ON-ONE 


DISK 


* 


M 


■inn 


16 AZTEC 


DISK 


A 


U 


350 


1 7 FLICHT SIMULATOR II 


1 HSK 


A 


n 


490 


IB MASK OF THE SUN 


1 1 BH 


A 


« 


390 


"■■ IF Ft. SIMULATEUR OE VOL 


DISH 


F 


R 


MD 


K PINBALL CONSTRUCTION 


CNSK 


A 


M 


380 


! 1 CHOPLIFTEft 


DISK 


A 


y 


300 


13 HARD HAT MACK 


blSK 


* 


M 


"" 


UvlSTRAD 










i SORCERY 




A 


M 


no 


3 DEFEND OR DIE 




A 




110 


3 MACADAM BUMPED 




F 




160 


4 MEURTRE A GRANDE 
VITESSE 




, 




180 


5 SURVIVOR 




A 




110 


8 BATTLE F OH MIDWAY 




A 


M 


ISO 


7 HOUSE OF USHER 




A 




no 


8 FOREST AT WORLD'S END 


K7 


A 




M 


9 MESSAGE FROM ANDROMEDA 


K," 


A 




95 


10 SERIE NOME 


KT 


A 




148 













ZENJI 

Pasmal, lesjeuxde reflexion Bien. les jeux 
d'arcade. Super, les tableaux speeds Alors, 
le melange des trois. qu'en dites-vous ? 

RIGEL 

Explorez, cartographiez ce monde encore 
mconnu pour en preparer la defense avant 
que les pirates nes'yincrustent Puisdefen- 
dez-le... 

SCORPIRUS 

"Argh '". pensez-vous . "ca va vraiment 
mal " Bien pense. car guider cette fichue 
bestiole dans ces sacres labynnlhes. ce 
n'est pas de la tarte ' 

AIRBUS 

Plus vrai que nature le pilotage de cet Air- 
bus A vous de demontrer que vous en etes 
digne t 

HOVER BOVVER 

Imagmez une belle pelouse, mais alors vrai- 
ment super belle El imagmez que per 
sonne ne la tonde et que vous pouvez 
subrepticement ulitiser une superbe ton- 
de use de course 



si vous $tes 

ABONNES 

deduisez VOUS-MEMES 

vos lO °/o 

de remise sur 

le bon de commande 




lO % de remise pour 
i abonnes ! 
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COMMODORE 64 








I REALM Of IMPOSSIBILITY 


OISK 


1 V M 


380 


3 LODE RUNNER 


MODULE 


J M 


100 


3 LODE RUNNER CHAMPIONSHIP 


DISK 


1 J M 


ITS 


4 BOULDER DASH 




k J tj 


135 


S PSI WARRIOR 




IF J 


m • t«o 


8 UP N OOWN 


OlSK 


•l J M 


160 


7 TAPPER 


OiSk 


t J M 


180 


S SPY HUNTER 


0<SK 


A J M 


160 


9 SPV VS SPY 




» J M 


140 


10 CON AN 


OISK 




330 


11 SEVEN CITIES Of GOLD 


DISK 


ft V M 


380 


13 TOURNAMENT TENNIS 


DiSk 


» J M 


150 


13 RAID OVER MOSCOW 




A J U 


330 


14SUMMER GAMES 


DISK,'? K 7 


A J M 


380/ 300 


1SKRYSTALOFZONG 




IVJ 


t • w 


16 BATTLE f OR midway 


DISK/K7 


F J R 


H ' 300/1*0 


17GHOSTBU5TERS 


0ISK/K7 


A J M 


160/1*9 


18 BRUCE LEE 


DlSKouK7 


A J M 


130 


1BSPELUNKER 


OISK 


ft J M 


17 S 


30 HYPER BIKER 




F J M 


90 


31 WHISTLER S BROTHER 


DISK 


ft J U 


17S 


33 MR ROBOT 




ft J M 


160 


13 DECATHLON 


CHSK/K7 


ft J M 


330/130 


34 BEACH HEAD 




ft J U 


14S 


35 BLUE MAX 




ft J M 


380 


36 PSYTRON 




ft R J 


140 


37 MASK OF THE SUN 


Disk 


ft V ft 


340 


38 VOVAGEUR 






146 


39 CHINESE JUGGLER 




ft J M 


96 


30 DALLAS 


Disk 


A V R 


330 


31 HOBBIT 




A V R 


310 


33 HOVER BOVVER 




ft J M 


iao 


34 KILLER WATT 




ft J M 


110 


35 ZENJI 




ft J ft 


H ' 130 


36 AXIS ASSASSIN 


Disk 


ft i y 


380 


37 ONE -ON -ONE 


D'SK 


ft J H 


380 


38 ARABIAN NIGHTS 




ft J M 


85 


39 FLIGHT SIMULATOR II 


DISK 


ft J ft 


4*0 


40 PINBALL CONSTRUCTION 


DISK 


A J M 


MO 


41 CHOPLIFTEH 


MODULE 


ft J M 


MO 


43 HARD HAT MACK 


OISK 


A J M 


J80 


43 Aft CM ON 


0I5K 


A J M 


380 


ORIC 1 1 ATMOS 








1 3D FONGUS 






140 


3 MEUflTRE A GRANDE VITESSE 






ISO 


3 AIGLE DOR 




p » n 


IBS 


4 MR WIMPY 






M 


5 DOGGY 






110 


6 SUPER JEEP 






140 


moil 




ft V R 


110 


B COBRA PINBALL 






iM 


10 LE DIAMANT DE LILE MAUD1TE 






140 


1 1 BIG BASTON 






110 


1 3 PSYCHIATftIC 






110 


13TENDREPOULET 




V H 


130 


14 LANCELOT 






190 


IS TERMINUS 






130 


16ULTIMAZONE 






95 


17 MISSION DELTA 




J 1 


95 


SPECTRUM 








1 DARK STAR 


K7 




95 


IXAVKW 


KT 




TO 


3 BRUCE LEE 


K7 




190 


4 ZAXXON 


K7 




110 


S MATCH POINT 


K7 


ft J u 


as 


6 SABRE WULF 


K7 




140 


7 UNOEftWOftlDE 


K7 




l» 


S BEACH HEAD 


K7 




150 


9 LORDS Of MIDNIGHT 


K7 




100 


10ATKATAC 


K7 


ft J M 


95 


1 1 PSYTRON 


K7 


ft ft J 


BO 


13 HOBBIT 


K7 


ft V R 


110 


1 3 PAINTING JOE 


KJ 




75 


14 LOMBR1X 


K7 




99 


tSVOX 


K7 




in 


16 30 MOVER 


K7 




iao 


1 7 INTERCEPT EUR COBALT 


K7 


F J R 


m 


18 MANOIRDr GENIUS 


K7 


* ft 


140 


TEXAS T I/M 








1 LUNAR LANDER 


KT 


J M 


95 


1 DftrVMG DEMON 


MODULE 


1 J M 


|1( 


3 AMBULANCE 


MODULE 


1 J M 


110 


4 RABBIT RAIL 


MODULE 


J W 


110 


THOMSON 








SAUF SPECIFICATION CONTRAIRE TOUS CES LOGKI 
COMPATIBLES M05. T07 AVEC EXTENSION 16K ET TO 


IS SON 




1 AIGLE DOR 


K7 


V 


ISO 


;fbi 


K7 


J M 


190 


3 INVASION 


K7 


J 


155 


J AIHHUS 


Maauie 


J M 


475 


5 ELIMINATOR 


K7 


J H 


IM 


6PULSABII 


KT 


J M 


140 


7 STANLEY MOS 


KT 


H 


180 


8 SPACE SHUTTLE SIMULATOR M05 


K7 


R J 


100 


9 VOX 


KJ | 


1 


IN 


I0YETI 


«7 J 


H 


140 


1 1 LABYRINTHE SUftVIE 


K7 1 


V M 


190 


13 BACKGAMMON 


K7 f 


■ 


170 


ZX61 








1 RIGEL 


«r 


J 


N 


1 SCOftPIRUS 


H7 


J 


75 


3INTERCEPTEUR COBALT 


K7 


R 


IS 


4CROCKY 


K7 


J 


a* 


5 COBRA 






80 



JERI 



■dE Soisou CA<5S£oR DE BPi'OUES • 0£ 
SWS VfMO pOOf? M£ DEFOUIFP 



SPECTRUM 



Et on se defoule ! Cette excellente adaptation cent 
pour cent MACHINE du ceiebre jeu de cafe, fera la joie 
des casseurs de briques. 

Fontesse CARL 



Mode dempioi 
Lancez le pfogramme 



" c &. 



(?UifJEOiTMflT 



10 REM 

11 REM *Progr ««■€ . casse -ft ur • 

12 REM F»it par Carl. Pontesse 

13 REN «fldr«ss«: 

14 REM »16,AU du 9a l Adeline * 

15 REM *91170 Uir^-ChiUUOn * 
Io REM *Te I. 116)944-39-03 » 
17 REM 

20 BORDER 1 PfiPER 1 INK 6: C 

21 PRINT OT 2.10, INK 2,"***J 

E R I»**"' 

22 PRINT AT 21,1,"© 1984, Can 
Fomesse" 

23 PRINT AT 5.0, La duree de 
charseaent du code 

• tchmc est d 
un peu plus dune 

»»nu te ."■ 

24 PRINT AT 15,4,'SOYEZ OONC U 
N PEU PATIENT.': PAUSE 250 

90 GO TO 5060 

100 FOR n=65368 TO 6536e*39 

110 READ x 

120 POKE n ,x 

130 NEXT n 

135 REM 

140 DATA 0.127,127,127,127,127, 
127,0 

145 REM 

150 DATA 24,126.126,255,255.126 
. 126,24 

155 REM 

160 DATA 255.255.255,255,255.0, 
0,0 

165 REM 

170 DATA 0.254,254,254,254.254, 
254,0 

175 REM 

180 DATA 255. 255, 255, 255, 2S5. 25 
5,255,255 

200 LET ht=0 

210 REM 

500 INK 7 PAPER O BORDER C 





L_5 



21 



510 FOR n=0 Ti 
520 PRINT PAPER 
j "■": PRINT PfiPER 



TO 6 



550 FOR .. 

560 FOR »*10 TO 29 STEP _ 
570 PRINT INK (2*(n»2 OR n*l) 
*tn*4 OR n =3i *4* in =6 OR n«5)t, 

n+2 ,»i_"Wl" 

560 NEXT ■ 
590 NEXT n 
600 PRINT INK 2,RT l,l,"^^^ m 

610 PRINT I 
,7,' I", INK 
CORE" 

620 PRINT INK 7, AT 3,2 

INK 2. PAPER p,AT 3.1, 
7." |", AT ' ' 

630 PRINT INK 2, AT 6,1. _ 
", AT 9, 1, 'I |", fiT 10, 1, " 

I", AT f * 

640 PRINT PAPER 5, INK 1 . AT 9,2 
;"BALLE',AT 10,4,1 

65 PRINT INK 2; AT 14,0, '^^^^ 
■"I'iRT 15.0, "I J"iAT 16.0 

, V > .AT 17,0 ,'T V 

.AT 16.0, "L^^" 

660 PRINT AT 15,3, PAPER 4; INK 



0. TOP", AT 16.2, "SCORE" 

670 PRINT PfiPER 7, INK 0, fiT 17, 
1." 00000 ": IF hi<>0 THEN PRINT 

AT 17, «7-LEN STRt hi), INK 0, P 
mPER 7, hi 

680 LET SC=0 

930 RE5T0RE 2000 

940 FOR i -1 TO 92 

950 READ d.h LET d>d/8 

960 BEEP d.h 

970 NEXT i 

980 POKE 60571,28; POKE 61302,6 


985 POKE 61300.0 POKE 61301,0 

990 POKE 60114,0: POKE 60115.06 

995 REM 

996 LET ba L =6 REM = Nbre de bat. 
les 

1000 FOR f =1 TO ba I 
1010 POKE 60500,19 POKE 60501,2 
2 POKE 60085. 20+RND*5 POKE 600 
86,20 POKE 60100,37 POKE 60121 
,37 

1020 RfiNDOMIZE USR 61303. LET SC 
-PEEK 613O0+256*PEEK 61301. PPIN 
T AT 3,i7-LEN 5TR» SCI.SC: PAUSE 


1030 RESTORE 2030 
1040 FOR i -1 TO 11 
1050 READ d,h: LET d-d/8 
1060 BEEP d .h 
1070 NEXT i 

1080 IF fdbiL-1 THEN PRINT PAPE 
R 5, INK l.AT 10,4; f+1 
1090 NEXT f 
1995 REM 

2000 DATA 1,2,1,3,1,4,2,12,1,4,2 
,12, 1.4, 1, 12 .4, 12, 1 , 12. 1, 12, 1,14 
.1,15.1.16,1,12,1, 15,1,16,1,16,1 
. 11,2. 14,4. 12, I 2,1.3,1.4,2.12,1 
.2,2,12,1,4,1,12,4,12, 1,12,1,9,1 
-7,1,5,1,9,1, 12 

2010 DATA 1,16,1,16,1,14,1,12,1, 
9,4, 14, 1,2, 1,2, 1,4,2, 12, 1,4,2,12 
, 1.4,4, 12. 1, 12, 1, 12, 1, 12, 1, 14. 1, 
15 , 1 , 16 , 1 , 12 , 1 , 15 , 1 , 16 , 1 , 16 , 1 , 1 1 
,2, 14,4, 12, 1, 12, 1, 14, 1, 16, 1, 12, 1 
, 14 , 1 , 16 , 1 , 16 , 1 , 12 , 1 , 14 , 1 , 12 
2020 DRTA 1,16,1,12,1,14,1,16,1. 
16, 1, 12. 1, 15, 1, 12, 1, 16,1, 12, 1, 14 
. 1. 16, 1, 16, 1. 11 ,2, 14,4, 12, 1,2, 1, 
3,4, 12 
2025 REM 

2030 DATA 4,0,3,0,1,0,4,0,4,3,1, 
2,3,2,1, .3.0.1.-1. 4 , 

2100 rem anMRpi 

2110 IF scihi THEN GO TO 3000 

2120 PRINT AT 17,(7-LEN STRt sm 

, PfiPER 7; INK OjtC: LET hi-sc 

2130 FOR a«l TO 7 

2140 FOR b>l TO 3 

2145 LET C=i»+b»/7: LET C = U-INT 

C) #7 
2150 PRINT AT 14*b,l, INK Ci"#": 

BEEP .15, -a 
2160 PRINT AT 14tb,7, INK C , '■#■• : 

5CEP . 15,6-a 
2170 NEXT b 
2180 NEXT a 

2999 REM 

3000 input "une autre parue ? t 
0/N) ■*, a* 

3010 IF (as<>"o" fiND aeo'O") fiN 
ta»<)"n" AND a*o"N") THEN GO 
TO 3000 

3020 IF «*= "O " OR a*="0" THEN GO 
TO 500 



3030 STOP 

5000 FOR i=l TO LEN a* STEP 2 

5010 IF CODE (a«»in>96 THEN LET 

a«U)»CHR$ i CODE aSti)-32) 
5020 IF CODE lain tl) ) *96 THEN L 
ET atU*l)=CHR« iCODE a«U*l>-32 

5030 LET b=16*C0DE a * ( i ) -112« tCO 

DE a$li ) >57> +CODE a t U ♦ 1) -7 * ICOD 

E af (i*l) >57i -916 

5040 POKE C,b 

5050 LET C-C+l 

5060 NEXT i 

5070 RETURN 

5080 CLEAR 59999 

5095 REM 

5100 LET c -60000 

6119 LET ••a"16O0477c060517cbl21 

Of b365fd5C 176 c 65847 C b4 226047a C 60 

757c b4« 28047a c 60e 577a C64057C9" 

5120 GO SUB 5000 

5125 REM 

5139 LET C -60040 

5140 LET a*»"Cb7f28O906O04f21dbl 
709160326005 r 2929297c C63C67C9" 
5150 GO SUB 5000 

5155 HEM 

5160 LET C -60064 

5170 LET a«B" f5cd60ea f IcScdSeeaO 

6087e000012142310f8clc9" 

5180 GO 5UB 5000 

5135 REM 

5190 LET c =60085 

5200 LET a«="16l52ab5eae53e20cda 

Oia3eO702e 1252: t 522 bSea3e91Cd22e 

cc9" 

5210 GO SUB 5000 

5215 REM 

5220 LET C-60114 

5230 LET 4f »"00O806102ab5ea252CC 

d60ea0a feO720Olc9e5219bec cdlOe F * 

Ifeoe2014iid9ea3e24i211c4eai22i9 

0O011350Ocdb5O3c9Feei2O17cd45«el 

ld9e a3e25 121 lc4e a 12219000113500c 

db503c9cd80edc9" 

5240 GO SUB 5000 

5245 REM 

5250 LET : =60300 

5260 LET a*-"01fef7ed781f lflf If 1 

f 3304.: d56ecc 901 Fee fed781 f 1 ( 1 f 360 

3Cd78eCC9" 

5270 GO SUB 5000 

5275 REM 

5280 LET C =60400 

5290 LET a*=" fe 3l20l4lldaea3e2c 1 

211c5ea 122190001 13500c db503c911d 

aea3e2d 121 ic5e a 122190001 13500Cdb 

503C9" 

5300 GO SUB 5000 

5310 REM 

5320 LET C =60500 

5330 LET a$= '13162a54ec3e0bbd2ei 

92c3e2Oe5cda0ea3eO7O2el2d2d2254Q 

C2d3e92cda0ea3e0102c9" 

5340 GO SUB 5000 

5350 REM 

5350 LET C «60536 

5370 LET a|>"2a54ec3elcbd28192d3 

e2OcScdaOca3eO70Sel2c2c2254ec2c3 

e92cda0ea3eoi02c9" 

5380 GO SUB 6000 

5390 REM 

5400 LET C *60570 

5410 LET aS="O6300« F f 0d2O'dl0f 9c 

9cdd6eaCdb7ca2ab5ea3el6bc2O01C9c 

dOcebCd9aeccdBcebCd9aecO00O0018e 



5415 REM si vcus Irouvez que la 
raquette ne bouge pas assez vile 
•eitre cdOceb a la Place des 6 
zeros de la none ci-dessus. 
5420 GO SUB 5000 
5990 REM 

6000 LET Cx6O230 

6010 LET a«3"lld9ealaee011211c4e 
al2e53e20cdaOea3eO?O2e I7de«016f 3 
e 20 c d a Oe a 3e 07022 190031 10a 00c db50 
3C9" 

5020 GO SUB 5000 
6025 REM 

6030 LET ■: =60450 

6040 LET a»="cdaOeadleld50a Fe022 
806 f 6042804 f 6 0620 lie di6eb2176e f 7 
*3d772005363CCd3c f Oc93eO702c9" 
6050 GO 5UB 5000 
6055 REM 

6060 LET C -61303 

6070 LET aS-"26162eOScd60€a3eOb0 
2261&2elecd60ea3e0b0225002e09cde 
Oea3eObO225002e lc cd60ea3eOb022 6 1 
e2e0aiei4e5d53e20cda0ea3e0702die 
12c 1520 f 026 I62e 12653s 92cda0ea3e0 
102el2ce53e92cda0Ea3c0102el2C3e9 
2cda0ea3e0l022l3b5ccb&e28fccda4e 
cc9" 

6060 GO SUB 5000 
6085 REM 

6090 LET c=6099? 

7000 LET a*="21d2ea763c77f e0B2B0 
Ic936 007721d3ea7e f e 122002 c 9063c 3 
c773d672501d4ea7cO22eO82C2c01d5e 
a7d02cd60ea0a F501d46a0%67" 
7010 GO SUB 5000 
7020 LET C-61051 

7030 LET a*«"0c0a6i3e20cda0ea3eO 
7O2Old4eaOa670cOa6!*24243e90cddee 
c f lF5O201d4eaOa67OcOa6F2c3e20cda 
0ea3eO7O2Old4ea0a67Oc" 
7040 GO SUB 5000 
7050 LET C-61103 

7060 LET *$="0a6f 24242c3€93Cddee 
e f 1020 id 4ea0a 6703096 i felc20a3115 
;eela3dl22093360612c9" 
7070 GO 5U6 5000 
7030 LET c«611B0 

7090 LET a|«"47dlf If5d5fe0720063 
e20cda0eac978cda0eac9" 
7100 GO SUB 5000 
7105 REM 

7110 LET C-60600 

7120 LET at=" fe0b2Q2211d9ealaee0 
112131aee011211c4ealaee0112131ac 
601 122 19000 113500Cdb503c9Cdf0e be 
9" 

7130 SO SUB 5000 
7135 REM 

7140 LET C-61200 

7150 LET a»«" feO2200606160ei€l82 
7 I e06200e f57e47fel82eO2O620Oe 14 f 
11815feO42801c9f57e47fel828O6f€2 
023020623060a f 1702a74e fO«00O9227 
4e ( 2 l?6ef?e 3d 772005363c Cd3c fOdle 
lcd46ebC9" 
7160 GO SUB 5000 
7165 REM 

7170 LET C»61500 

7180 LET at="26O3260aa53e9OcdaOe 
a 3eO202Gl2ce53e93cdaOe a3e0202e 12 
C7d Fele20e5247c f e0S20dd21d3ea360 
BC9" 

7190 GO SUB 5000 
8000 GO TO 100 • 
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Suite de la page 4 



H-H-l 



"IMPOSSIBLE FAS DE f-'O 



2810 IFX '152THENG0SUB2900:X-X-16tL-L- 

2S20 RETURN 

2B50 X*X-16:L=L-l:HiH-I 

2860 IFX:88THENG0SUB29O0:X-X*16 : L-L+l 
2S70 RETURN 

2900 IFF»1THENRETURNjELSEFRIN 
RTE"! RETURN 

2949 " TEST PORTE 

2950 IFPl=lflNDD=lTHeNG0T02970 
2954 IFP2=lflNDD=2THENGQT02970 
2956 IFP3=IANDD=3THENG0T02970 

2958 IFP4=1ANDD-4THENG0T02970 

2959 IFO OTHENPF;INT , 'PORTE FERMEE ft CLEF"jF = l 

2960 RETURN 

2969 ' TEST CHANG PIECE 

2970 IFPC-14ANDD-4THENYl = 3:Xl=S:X=l-i : , =8^: « = -ui" . L - 
aSUB1600:GOSUB9IO!Fl=t:PRINT"OUBLIETTE"!F.H=0:DHaliD 
= l:L = ir.!G0T03010 

2972 IFPC=1ANDD=3THENG0T0950 
2980 0NDG0T02990 . 2992 . 2994 . 2996 
2985 G0T02970 

2990 Y 1 *Y 1 + 1 : GOSUB 1 600: EOTQ20O0 
2992 X1=X1*1!G0SUBI600jG0T020':'0 
2994 Vi-Vl-liG0SUBI60OiG0TQ20O0 
2996 X 1 =X I - 1 1 G0SUB1600: G0T02000 

2999 ' TEST ACTION 

3000 IFPC = 22ANDF1 = 1THENG0SUB904:F1=':':G0T., 

3005 IFPC=12ANDL=HTHENPEN1 I PR INf'GOUFFRE INSONDABLE 
" :G0SUB880: PAUSE3: GOTO 1000 

3006 IFPC>:8AND<L = 60RL=100RL = 70RL = 9) THENF'R INT "Pu I T S 
ANS FOND M :GQSUB880:PAUSE3:GOT01000 

3010 T0NESO,50iINPUTRP* 
SOU " DEPL 

3012 IFLEN(RP«) . lTHENG0T03I00iELSERS=MID*lPP*. 1. 1 I 
: IFFt^lTHENGOTOTOOO 

3013 IFPC=8ANDSR = 0ANDL=8ANDF;»=■■A , ■ftNDD-2THENPRINT' , IM 
POSSIBLE LE SERPENT vOUS TUERA" i GOTO ~<<\ ~> 

7015 IFR»= M S"THENG0T0850 



3016 IFR«="A"THENRETURN 

3017 IFR*="D"THENGOT03020 

3018 IFR»= , 'G"THENG0T03030 

3019 G0T03000 

3020 D=D+ 1 : DH=DH* 1 j IFD 4THEND=1 

3021 IF0H>4THENDH=1 

3023 OUTPUT" u",X. Y,3:0UTPUTCHRS!Z*DH) 

3030 D-D-1:DH-DM-1: IFD 1THEND=4 
3032 IFDH- 1THENDH-4 
3034 OUTPUT "Ci-.X, Y, 3iOUTPUTCHR» (Z+DH) 



,V,0!&0T0300 



. Y.OjGOTOT-OO 



3099 " ler MOT 

3100 RE,PR,DE.GR,OU,LI.TU,VE.FE.LA=0 
3110 R1«=MI0»(RP*, 1,4) 

31 IS F0RI = 0T09: IFR1«=A» < I ) THENGOT03200:ELSENEXT S GOS 
UB5OOiG0TO3O10 
3200 G0SUB3210+10«1: 1=9: NEXT:G0T03400 
3210 RE=>1(RETURN 
3220 PR- Is RETURN 
3230 DEM -.RETURN 
3240 GR"1 : RETURN 
3250 0U= Is RETURN 
3260 Ll-lsRETURN 
3270 TU= Is RETURN 
3280 VE»1 1 RETURN 
3290 LA=1 : RETURN 
3300 GOTO I 000 

3399 * ESPACE 

3400 FORI = lTOLEN(RF*i s E«=M1D» I RPS , |,|)i IFASC <E*> -3 -1 
THENGOTQ3500 

3410 NEXTsG0SUB51O:GOT0301O 

3499 ' 2em MOT 

3500 J-Ii I-LENlRP») sNEXT 
3510 R2«-MID«(RP». J+1,4) 

3520 F0RK"0T011i IFR2»-B« tr t THENGOT03600 

3521 NEXT 

3530 F0RK-0T09I IFR2»=C« IC I THEN&OT03900 

3531 NEXT 

3540 IFR2»=M«THENG0TO4200 

3545 IFRE=1ANDPC=32ANDPL=1THENG0SUB550:G0T030I0:ELS 
EIFRE = lANDFl = lANDR2» = "S0UT"THENG0SUB55'.;G0TD'-.oir> 
3550 BOSUB52OIB0TQ3010 
3399 ■ MEUBLE 

IFRE lANDDE- 1AND0U' I THENG0SUBS30 1 1 -UiNEXTi 



G0TD3010 

3601 IFRE=1ANDPC=13ANDL*1BANDR2*<: "CHEM"THENK=1 1 :NE 
XT : G0SUBS50: GOT03010 

3603 I FPC=32ANDRE= 1 ANDR2» = " SOUT " THENK- 1 1 : NE X T : GDSUB 
550:G0T03010 

3605 G0SUB3610*10«K!K=llsNEXT!G0T03010 

3610 IFaU=lANDCL=lTHENG0SUBB00sGaT0540 

3611 I FOU- 1 ANDCL -OANDO' ^0THENG0SUB530 

3612 IFOU-lANDO=OTHENPRINT-OUVERTE , 's RETURN 

3613 G0T0700 

3620 IFCH»OTHENGOT0520iELSEIFOU«=lTHENGQT0530 

362 1 I FD I = I THENOB ( 5 1 ■ 1 3 I 8 

3622 I FPC» 1 3ANDFL - 1 THENG0T0700: ELSEG0T0550 

3630 IFPE-OTHENG0TO520: ELSE IFOU= I THENG0T0530: ELSEGO 
T0700 

3640 IFCA=OTHENGOT0520:ELSEG0TO710 

3650 IFC0=OTHENG0T052Os ELSE IFC 1 = 1 THENG0T0700 

3651 IF0U=1ANDC0=LTHENC1=1:G0SUB540: RETURN 

3652 G0TO710 

3660 IFT&=0THENG0T0520:ELSEIF0U=1THENG0T0530(EL3EGC 
T0700 

TbT'O IFTE=OTHENG010520sELSEGOT0710 

36B0 IFLU=0THENG0T0520sELSEG0T0710 

3690 IFEC»0THENG0T0520:ELSEG0T0710 

3700 IFTR=0THENG0T0520 

370 1 I FOU= 1 ANDTR=LTHENT 1=1: G0SUB540: RETURN 

3702 S0T071O 

3710 IFSO=OTHENGOT0520:ELSEGOT0710 

3720 IFF0-0THENG0T0520 

3721 IFDE=1ANDT1=1ANDF0=LTHENG0SUB540:G0T0900 
3726 IFT I -0THENG0T0530S ELSEG0T0700 

3B99 " O&JET 

3900 IFRE«lANDR2*-C*(5)ANDPC=2«THENG0SUBS5Osl =9:NEX 
T s G0T0301 

3901 IFFR=1ANDFC=26ANDR2»=C«(4>ANDL' 20THENK -9: 6DSU 
i.<5.-' ': NEXT: GQT03''< li;i 

3902 IFOBU »-10O«PC*L0ROB(l I = 1THENG0T03904: ELSEGOSU 
B520:l =9:NEXT:GQTo:.oiu 

3904 IFRE=lTHENG0SUB550:t =9: NEXT s G0T03010 
-905 B03UB3910+10«I il =9: NEXT:G0T03010 

3910 IFPR=1ANDEF-1THENGOT0560:ELSEIFPR=1ANDC1=1THEN 
EP=1:0B(1 .. 1 - 1 : G0T0540 
791 l GOTO570 



Suite page 22 



GASPATION 



GASP I Plutot nombreux les fantomes et nerveux avec 
ca, hop ! Un bon cafe et c'est parti. 

Bertrand NELSON 



Mode d'emploi ; 

Peut lourner sur version de base. Tapez minutieusement ce pro- 
gramme chargeur et apres lancemenl, attendez lapparition du mes- 
sage Termine". Lancez alors (execution par EXEC&H1600 
Ce programme cent pour cent MACHINE. est tres inspire (de I aveu 



iQHOi Quoi 6A«WT'OM?C'fsr <-E J CANON X. Of 



de I auteur) par MINE HANTEE du N°70 mais drdlemenl plus excitant 

Vous devez ramener 8 sacs dor a voire point de depart en evitani 
Si possible auelques tantomes plutot speed' Ces derniers monlent 
et descendeni plus frequemmenl a chaque tableau el changent sou- 
vent de direction a partir du troisieme Vous disposez de 10 vies au 
depart et cfiaque tableau vous rapporie i vie Un sac toucrie (appa- 
rition dune etoiie a droite de lecran) vous octroie 10 pomis et ra- 
mene. 20 points Si louche en possession dun sac. ne pas oubher 
de le redeposer au point de depart ou vous etes en secunte. ainsi 
que sur la grande echelle de droite. Ce ieu smierrompi par BREAK. 
OFF 





5 "Programme LM -GASPATION- 

6 'Mr Btrtrand NELSON 

10 DATA1 1 09002 X 48 1B3E1 A010009E5CD2 

FC9E1197EB720F13E33CD 

20 DATA2BE43E38CD28E421BE1ACDF7FE0 

1 200021 99 1A11FD1BEDB0 

30 DATACDC3CB21F81ACDF7FE2A121C22B 

B003EF5EF2AI21C22B800 

40 DATA3A141CEF11211C0101003E82CD2 

FC91AFE3020083EF53220 

50 DATA1CC3AF17ED4B1C1C060021B91A0 

94EFD2t0000FD092601CD 

60 DATA151A211CIC7E3C77D6032O01773 

A211CFE3120142A121C4F 

70 DATACDA819FEE779200821121C333EF 

3ie37FE3320192A121C24 

80 DATA4FCDA819FEE8300821131C343EF 

B1B3FFEEA2BF479FE3520 

90 DATA1B2A121C2C4F7DFE03792B10CDA 

B19FEE779200821121C34 

100 DATA3EF6181BFE37201A2A121C232B 

14C0A819FEEB3B04FEEA20 

110 DATA0921131C333EF932201C3A131C 

B720063C32131C1820FE14 

120 DATA38073E1332131C1B133A121CB7 

20063C32121C1609FE033B 

130 DATA0A3E0432121C3EF332201C2A12 

1CCDA81 93214 1CFEEA202D 

140 DATA4F3A151CB77920253EE632141C 

2603FD210100CD131A3E01 

130 DATA32131C21011422B8003E2AEF3A 

1A1C3C321A1C184AFEE7C2 

160 DATA71173EF632201C1B0EFEF0DA7F 

17FEF430053E0132161C2A 

170 DATA121C373F110401ED32201C3A13 

1CFE0120133D32131C3A1A 



180 DATA1C3C321A1C3A171C3C32171CCD 

BE193A171CFE08CA1D1ACD 

190 DATAE8E8C02A121C22B8003A201CFE 

F93807473A131CE6018OEF 

200 DATADD21FD1B3A191CFE02380EED3F 

FEF338080D7E02E0440077 

210 DATA02DD7E01DD6E00DDB6022B1AFE 

1S301667CDAB19321E1CFE 

220 DATAE83B3DFEF338073E0132161C18 

32DD7E02ED44DD7702ED3F 

230 DATAE607CB07CB0706004FFD210000 

FD092601CD131ADD7E03FE 

240 DATAEACAE216FEEBDAE21BDD3603E6 

C3E21BDD6601DD6E0022B8 

230 DATA00DD7E03EF3A161CFE012B783E 

13DDBE0128713EE7DDBE03 

260 DATA202DDD6601DD6E002DCDA81932 

1F1CFEEB301C4FED5F211B 

270 DATA1CBE793B12DD3300321E1CED3F 

E6O1CBO73DD077021846DD 

280 DATA7E00FE042836FEO32OO3DDBEO1 

282DDD6601006E002CCOA8 

290 DATA19321F1CFEE7201CED3F211B1C 

BE3814DD34003EE732IE1C 

300 DATAED3FE601CB073DDD77021B09DD 

7E020D8601DD7701DD6601 

310 DATADD6E003A1E1CDD770322BB00DD 

7E02C6F2EF3A161CFE01CC 

320 DATAFA18010400DD09DD7E00FEFFC2 

CC17C34216FD2 130002601 

330 DATA0618C5E5FDE3CD131AFDE1E1C1 

FD2BFD2B10EF3A181C3D32 

340 DATA181C3A141C06E7BB280CFEEA28 

08DD7E03B8280278300077 

350 DATA0306033E802A121CF3C3E322B8 

OOEFD66416003FFD210000 



360 DATAFD19D61967CD131AE1C1F13C10 

E222BB00DD7E03EF2 10401 

370 DATA22121CAF32161C3EE632141C3E 

F532201C3A181CB7C02156 

380 DATA1ACDF7FE11030FED53BB002A1A 

1C2600CD98BB3E30EF2104 

390 DATA0C22BB003E3FEFCDBDC0CDC5C8 

FE4FCA0016FE4E20F1D1C9 

400 DATAD5252DCB03CB037DCB03CB0385 

841 11402835F1AD1C92A12 

410 DATA1C22BB003EFDEF2I01 1 422B800 

3E20EFFD2 101 00260 1061 4 

420 DATAC5E3FDE3CD131AFDE1E1C1FD23 

FD23FDZ3FD23FD2310E906 

430 DATA14C3E5FDE5CD151AFDE1E1C1FD 

2BFD2BFD2BFD2BFD2B10E9 

440 DATA3EF332201C2A121C22B800EFC9 

111C1AD5CDDFC2C921421A 

450 DATACDF7FE263FFD21FFFFCD151A2A 

181C242C22181C3A1B1CD6 

460 DATA 1 4321 B1C01 1B00C328160C0A20 

202020202042324 1364F20 

470 DATA2121210A0D000C306C75732064 

6320766965732E2E2E000A 

480 DATA366F7373206I76637A20706372 

64752E0D0A566F74726520 

490 DATA53636F7265202D3E2020202020 

20504C4 159204 1474 1494E 

300 DATA00010BFFE60205FFE60306FFE6 

0310FFE6040CFFE6FF0401 

510 DATAE60000000A0000FF000 1070302 

030C 2020202020474 15350 

520 DATA41S4494F4E0A0D20436F707972 

6967687420286329203139 

530 DATA383520204E434C334F4E2O3032 

4F44534334494F4E332000 



340 DATAEAE6E6E6E6E6E6E6E6E6F1E6E6 

E6E6EAE9EAE620E6E6E7E6 

530 DATAF1E6E6E9E6E7E6E6E6E6EAE7E9 

E9E720EAE6E7E6E6F1E7E6 

360 DATAE6E6E6E6E7E6E6F1E6EAE720E6 

E6E7E9EAE6EAE7EAE7E6F1 

370 DATAE6E6E7E9EAE6E70080002070A8 

203030FCB 1 002070702030 

380 DATA30FC8200002070207030FC8300 

000O2O207030FC840O000O 

390 DAT A00006060FC 8300000000000000 

FCE600000OO000000OFCE7 

600 DATA8BFee8FB8eF888FCE9FCFCFCFC 

FCFCFCFCEA000000302070 

610 DATA70FCEF002070A8203050FCF100 

78FCACFCFC34FCF30078FC 

620 DATAD4FCFCA8FCF3002070AB205030 

FCF688A8F8ABA8D8D8FCF9 

630 DATA004030E82050C8FCFB001060B 

203098FCFD00A870202030 

640 DATA88FCFA0020107834D008FCFC00 

1 02078B02C40FCOOOOOOOO 

650 CLEAR70,I<H13FF: RESTORE: DEF I NTA 

-Zl DEF5N6S:K-1<H1600 

660 PRINT*Un Instant... * 

670 F0RI-1T064:READA» 

6B0 IFLENtA«) < >4BTHENBEEP1 , 1: PR I NT 

■Errtup ds 1* long. d»s DATAS lign 

• * 1*10: END 

690 F0RJ-1TO47STEP2 

700 V-VALI P I«H*+MID*{A», J, 2) ) :S«S*U 

710 POKE*,V:K-K+l:NEXT 

720 NEXT 

730 IFSO 136231 THENBEEP1, 1: PRINT'S 

omm* d» control* 1 n«xact«" : END 

740 BEEP3,3:PRINT*T«rw>tn«-:END 




V HECTOR 

Suite de la page 2 1 



0RE5760+W 1 : FOR 1 =0T09: READOB ( 1) : N 
3760 DATA232Q, 2716, 816, 2420. 262 
S, 1613 

5761 DATAr216,2116. 11 
8. 1613 

5762 DATA916. 816, 2520, 



20, 1 31 B, 81 6. TCI 3, 171 



. 1613 



'620. 1318,221* 



,3213, 1 



3920 IFPR- 1 ANDCD= 1 THENG0T056O: ELSE IFPR= 1 ANDC 1 = 1 THEN 
CD- 1 : OB ( K > - 1 1 G0T0340 

3923 IFGR-1ANDCD-1ANDC2=1THENOUTPUTCHR*<Z*OH) X V 
:Fl-O:G0T0540 

3924 IFLA-1ANDCD=1THENC2=1:PRINT"C0RDE LANCEE » t RCTU 
RN 

3925 DOT 05 30 

3930 IFD-1THENPR1NT-P0UR TROUVER LE BON CHEMIN 
SUIVEZ HECTOR" :PL=1: RETURN 

3931 60T0530 

3940 IFPR=1ANDCL=1THENG0T0560: ELSE IFPR=1 ANDC1 =1 THEN 
CL= 1 : OB ( K ) = 1 j G0T0540 

3941 GOT0530 

3950 I FPR= 1 ANDF I = 1 THENGOTOS60: ELSE 1 FPR= 1 THENF I - 1 ; OB 
(K>=liPL0T158,95,3,8,3:G0T0540 

3951 IFVE = 1 ANDF I =2THENG0T0570: ELSE IFVE=1 ANDF I =1THEN 
FI-2:G0SUB540:IFPC=I3ANDL=1BTHENPL0T11S, HO, 10. 11,0s 
FL-1 i RETURN ( ELSERETURN 

3952 G0T0530 

3960 1 FL I = 1 ANDL= 1 8ANDFL= 1 ANDFC 1 3THENPRI NT "REGARDEZ 
Y A DEUX FOIS »tOB(K)-ll IFD I - 1 THENOB <!■: 1 = 1 318: RETURN: 

ELSERETURN 

3961 GOT0530 

3970 IFPR- 1 ANDCR= 1 THENG0T056O: ELSE 1 FPR= 1 ANDC 1 - 1 THEN 
CR-I |QB(K)-1 :GOT054Q 

3971 G0T0530 

39B0 IFPR- 1 THENG0T0560: ELSE I FRE= 1 THENG0TO55O: ELSEGO 
T0530 
3981 G0T0530 

3990 IFPR= 1 ANDD1 - 1 THENG0T056O: ELSE I FPR= 1 ANDFL= 1 THEN 
D I * 1 : OB ( I > = 1 s OB 1 3 ) = 1 3 1 B : GOT D540 

3991 G0T0530 

4000 IFPR=1ANDLF=1THENG0T0560: ELSE IFPR=1ANDF 1 = 1 THEN 
LP-1 sOBO 1 = 1 SG0T034O 

4001 GOT 0530 

4199 MONSTRE 

4200 B08UB4210lG0T03010 

4210 IFTU-1AND5R=IANDEP=1THENFRINT"DEJA MORT":RETUR 
N:ELSE1FTU-1ANDSR=OANDEP=1ANDPC=8THENFLOT1 10,95 1*. 1 
6,0:SR=l:G0Ta540 

4215 IFRE=1ANDSR=0THENG0T0550: ELSE IFRE=1 ANDSR= 1 THEN 
GOT0520 

4220 G0T0530 

5030 FORI=0 

5499 ' SERPENT 

5500 REST0RE55OO:DATA16. 16.0.0. 15, 224. 27. 240 --1 48 
30,24.32,24, 192, 24. 64, 24.. >. 16. O, 48. 0, 96, o! 206* I 145* 
1, 161, 1. 150.0. 120 

5530 F0RI=64256T064256»37:READV:PQt'El.V ! NEXT: RETURN 

5699 ' LIST OBJ 

5700 REST0RES700iDATAUNE EFEE..UNE CDRDE.UN PLAN.UNE 
CLEF.UNE FIOLE.UN MESSAGE, UNE COURONNC » , UNF CLEF E 

N OR l.UN D1AMANT • .UNF I AMFE ftLLUMEE 
5730 FOR!=iiT09[REAOQ*< I ) : NEXTr WI» INT (RNDIO. "i ) iRFRT 



.TUE .VERS. LA 



5780 RETURN 

5799 ' VOCABU 

5800 DIMB»(12> :REST0RE5B20 
5B20 DATAREGA.PREN.DESC.GRlrl.auVR.LlS 

NC.STOP 

587.0 DATAFORT.CHEM. REIN. CHAI.CDFF.TABL. TENT, LUST EC 
U5.TRAP.SOUT.FOSS 

Dl 

5860 F0RIe0T09:READA* ( 1 ) :NEXT 

5865 F0fiI=0T011:READB«Ul:NEXT 

5870 F0Rl=0T09:READC*m :NEXT 

5875 M*="SERP"jRETUPN 

5999 ' PERS0NN6GE 

6000 REST0RE6000: DATAB, 8. 32. 1 1 2. 1 68, 32, 32. 32. O. O. 3 
2. 16,248. 16,32,0,0,0.32,32.32. 168. 11 2, 32.0. o, -.2,64*-' 
48,64.72,0,0,0 

6050 FORI =63940T063940*33:READV: POkEI . V: NEXT : POKE24 
548,249 ! F0t.E24547, 196:RETURN 

61 00 G0SUB400: COLORO. 6. 1 . 4: PEN1 : GOSUB470; G0SUB3 1 o- G 
0SUB290: F 3= | : F 4.F r-O: FC=1S: RETURN 

61 10 G0SUB400:COLOR0.6.3.2:GDSUBlOO:GOSU&19O:GOSUE<3 
4O:G0SUB7'i.i:GaSUB260:GOSUB2a0:G0SUBZ4':':G0SUP72O. GOSU 
B33OiGOSUB250:6DSUB290tPl,P4,P2-0lP3-1 -PC=1 ! 

6112 IFFL-OTHENPLOT116,100.8,3.0lPL0TH7,110 1 10 2 

:PL0T119.107. 1,7,2: PLOT121, 1 KM , ] 1 . 1 : F LOT 1 7 7, |06.1 

6,2sPL0Tl 17, 102,7, 1,2 

61 I? RETURN 

6150 G0SUB400: COLORO. 7. 
30: P4=0s P3= 1 s PC=6: RETUFl 

6200 G0SUB400:C0L0R0. 1. 
10:P3.P2=l:PC= 16: RETURN 

6230 G0SUB400; COLORO. 6. 3, 2: G0SUB41 O: G0SUB32O- GOSUET 
00: GQSUB280t P 1 . P2.P3.P4 . PC- 1 : RETURN 

6250 G0SUB400: COLORO. 4.7,5: G0SUB42D: GOSUi^7< ■- F -4= l • F 
l=0:FC^7:fi£TURN 

6260 G0SU&4OO:C0L0R0.6.5.2:G0SU&440:G0SUB' , lOi60SUBl 
9..i ! G0SUB37.n:F:.= l:FC = 4:RETURN 

6300 G05UB4OO: COLORO. 3. 1 . 1 .- BRIGHT It PEN] : GQSUB47. . : GO 
SUB 1 90: GOSU&290:GOSUB320:F'2=0:PC = 71: RETURN 

6310 B08UB400iCOLORO,2.6,S:BRIGHTOiG08UB430iBOE4IB33 
•■:G0SU&380!P4 = 0:P3=1:PC = 30:RETURN 

6320 G0SUB400! COLORO. 6. 3. 5: G0SUB4 1 0: G0SUB19O: GOSUB^ 
1 : G0SUB7 30 : P3= 1 : PC= 1 9: RE TURN 

637.;, G0SUB400: COLORO. 3. 1 . 6: GDSUB420: GOSUEO 90- GOSUB" 
90iPl-03P3-ltP020t RETURN 

6340 GOSUB40O: COLORO, 5, 3, 7: BRIGHTO: G0SUB44..; &0SUB~6 
":G0SUB290:P2=O:P3=l:F'C=2l! RETURN 

6350 GQSU&400: COLORO, 3.1,6: PEN1 : GQSi.|. i 00: G0SUB2301 G 
0SUB77>:i:GOSUB26OiPI.P2,P3.P4=0 J PC=22: RETURN 

6760 &0SUB40.>:C0L0Ro.7.7.4:GO5U&470:G0SUB7r0:G0SUB2 
7«. : f 4 = 0: F'C = 77: RETURN 

64. ■•■ GOSUB40OI COLORO. 5. 6. 3: BRIGHTO: G0SUB45O: GOSUB^' 
"SG0SUB210: GOSUB270tGOSUB240i P1»0:P2« 1 : PC" 32 t RETURN 

64 io G0SUB400: COLORO. 4. 7, 5: GDSUB420i D0SU8270* G0SUB7 
"0:F4.f-=i !Pl-0sPO29sRETURN 

I IB400ICOLDRO, 1 . 7, 6:GDSUB420iG0SUB ' 

*.47^ Pl-OiO-3s IFUr-ITHENP2*l:D«0[ELSEP2=0 



. 7. 6 : BR I GHT 1 : G0SUB470 : P 4 - 



6429 RETURN 

6440 G0SUB400: COLORO. 7. 3. 4i GOSUB420: G0SUB290i P2= 1 • P 
1-0:PC= 26: RETURN 

6460 GOSUB4OOiC0L0R0,3,, 
OiGOSUB320:P4=liPl=0:PC=: 

7000 G0SUB400: COLORO. 5. 3, 4: G0SUB440: G0SUB320: PC= 1 4 

7005 P4.P2=l:P3=O : O=2:IFUl=lTHENPl=l : 0=0:ELSEPl=O 

7009 RETURN 

7010 G0SUB400tC0L0R0.2,5,3:G0SUB440sG0SUB330:PC=12 
7015 P4-ltO-5: 1FU3=1 THENPI=1 : 0=0: ELSEPI =0 

7019 RETURN 

7020 G0SUB400: COLORO. 
-OiPC-ll:RETURN 

7030 60SUB400:C0L0R0,7,5.7 : BRIGHT0:G0SUB4 70:G0SUB36 
0:PC=10iRErURN 
7040 GOSUB400:C0LQR0,4.7 
7045 0»6: IFU4MTHENP2M: 

7049 RETURN 

7050 G0SUB400: COLORO. 5. 3. 7; G0SUB440: G0SUB200: &OSUB" 
20:P1=1:PC=7: RETURN 

7060 G0SUB400: COLORO. 1 .3. OsGOSUBlOO: G0SUB320sG05UB2 
SO[F-2.Pi=o.p4=i :PC=B 

7061 IFSR=0THENGDSUB480 

7062 RETURN 
7160 G0SUB400: COLORO. 7-. 2. 4: G0SUB46 

20: F'7. F'2 = 0:P4=1:PC=5: RETURN 

7210 G05UB400: COLORO. 1 .3.3:1 
0iP4«ltP3«0iPC»17tRETURN 

7220 G0SUB400: COLORO. 2.: 
0:PC=1B:RETURN 

7770 G0SUB400: COLORO. 6. 3. 2: G0SUB4 10: GOSU&-. 1 o- &OSU&-. 
20: G0SUB240: P3, PC- 1 : RETURN 

7240 G0SUB400: COLORO. 7. 7. 4: BRIGHT I 
0:G0SUB220:P3=0:PC=2: RETURN 



: G0SUB200: G0SUB2 
R I GHT 1 i G0SUB440: G0SUB28 
t BR] &HTO: GDSUB440: G0SUB3' 



:G0SLIP4 40:GOSUB24 



1 . 5: G0SUB430: G0SUB320: G0SUB3 

3, 7:G05U&430:G0SUB7. 70: GOSUEO 



7250 G0SUB400: COLORO.' 
O : P3= 1 : P l =o : PC=3 : RE TURN 

7260 GDSUB400:C0LDR0.6.: 
30 : P2=0: P 1 = 1 j PC=4 : RETURN 

7320 GOSUB400: COLORO. 6.: 
00: P4= 1 : FC= 1 9: RETURN 

7370 G0SUB40Q: COLORO. 3, 1 . 6: GOSUB470: G0SUB2^»0: GOSUB^ 
8O:PI=0:PC=20: RETURN 

7340 G0SUB400: COLORO, 5. 7 
0:P2=0:P1=1:PC=21: RETURN 

74 10 SOSUB400»CDLDRO, 4. 7 
10{P4»1 j PC=29: RETURN 

747-;i GOSUB4O0iCDLOR0, 



5: BRIGHTO: &0SUB470: &0SUB26 
, 2: D0SUB420: &DSUB20OI G0SUB7 



■ : G0SU&4 1 0: G0SU&770: GDSUB2 



: BR1 &HTO: &0SUB420: &DSU&78 



: GOSUECh": G0SU&7 



>:PC = 28 



.^:&DSUB4?. 



lGOSUB3i 



: G0SUB3 



i.i i 



7425 O ;!lFU2-lTHENP2"lfO-CnELSEP2=0 

7 4 7'' RETURN 

743T. G0SU&400: COLORO. 6. 2. 1 : BRIGHT 1 : FEN1 : GQSUB4 
SUB280: G0SUB260: &DSUB320: PC=27 
74 35 P3=0:0=4: IFU2= 1 THENP4= 1 : 0=o. ELSEF4=o 
^4-9 RETURN 

7440 GOSUB400: COLORO. 7. 7. 4 : BF. I GHTO : G0SUB47O; GOSUB28 
0:F3.p4=l :PC=26 

7441 lFFI=0THENPL0T158.9:.7..5.2:FL0T15a <>5 l 3 ",PR 
I NT "UNF FIOLE" 

7449 RETURN 

7450 GOSUB4i:i0iC0L0RO,5.3.2:&OSUB470>G0SUB320:BDSUB3 
SOiGOSUB '■.■■•: i-,ii'-,ii[:. ■■■ : f - •i:FC = 25(RETURN 

7460 l»OSUB4O0i COLORO. 3.6.5:BRIGHTl:BOSUB450iG0SUB27 
0iGO5UB250:G0SUB32Oil - -:i ' I iPC«24t RETURN 
lii""' DD5UB4001 COLORO. 3, '-. 4sGQSUB460:60SUB320:GOSUB3 



Suite page 23 



CARACTERES 



Grace a cet utilitaire, singulansez vos programmes par 
quelques caracteres peu communs. 

Gilles THOMAS 



Mode d'empioi 

Les inrlir.slmnt; n«cessaires sont dans le nmnramme 



10 IFPEEK<2>*0THENPPINT"T'ftTlEHCE" -RESTORE GOSUB6100?I GOSUB62000 P0KE2. 1 GOTQ120 

11 RESTORE OOsUBbl009 

110 REM ==.«==MOD£ PPINT»=««««=»=»" 

120 PRINT'T^" ■POK.E53280. 11 P0KE53281.12 

130 PPINT"ffl»irDUR -ICPIPE RVEC ~l--«/l " 

140 PPINT"HK»LES TOUCHES SEULES DONNENT LES MINUSCULES ■ " 

130 PPINT"ABCDEFoHWKLMNOPQRSTiJVWXVZ 0123456789 +-£8*t ■*,./" 

160 PRINT")«MI_ES TOUCHES SHIF^ES DONNENT LES MAJUSCULES " 

170 PPINT"*|- -I h ^L\sT- »J»I ^X04> 14 JM*0? I WKt' O " 

180 PRINT"IMHNSI QUE +< + ). !<-), r<£), -<*), iK T) POUR SOULIONER." 

190 OOSUB30000 

200 PRINT"«OM_ES TOUCHES RVEC COMMODORE' DONNENT LES CARRCT-.RES ACCENTUHS ET " 

210 PRINT*'SP-4CIRUX " 

220 PRINT" ■ I m" - 

230 PPINT"J0 H -»• -r ~ ~ m m -. - "* «" 

240 PPINT"B r i I I I I I I I C ] •'• 

230 PRINT"B <■ J " • % I I < > ?" 

260 PRINT"«B»M_ES CRPRCT-iRES EN HHUT V DPQITE SERVENT ► -ICRIRE : ft- OU I ». " 

270 PRINT"\AINTENflNT VOUS POUVEZ HCRIRE (PRR EXEMPLE) '" 

280 PRINT"B N*«VUS. I-UVPE, KHI FIQUE, KHtJ. OflRT)N,NOi. Z DTV, -RE, HLWE..." 

290 PRINT"OU ENCORE EN ""SPAGNOL J ? I! Cfl ON..." 

300 GOSUB50000 

318 PRINT"«BMnDUR HCRIRE RVEC T'~ . ET OBTENIR DES ORRNDES LETTRES, "j 

320 PRINT"ON UTILISE LES CARRCTiRES QUI SONT NORMRLEMENT LES INVERSES ET QUI "j 

330 PRINT-SONT ICI PROGRAMMHS DIFFHREnMENT, CE QUI EXPLID.UE LES BIZHRRERIES DU " 



COMMODORE 
64 





PiT^PE* 



Oui^ MA<$ VOUfc ETE£ BFAUC^up 
TPOP C£7MMUf4 POUR MOlV 



PRINT'TURSEUR." :PRINT"inDUR OBTENIR LES GRRNDES MINUSCULES " 

PRINT"1-~CRIRE Lfl CHRrfJE RVEC DES MINUSCULES. "X : A*o"B0NJ0LIR" " 

PRINT"2--0NNER LIGNE ET COLONNE DE DHPART. "X : L-2B C-12" 

PRINT"3-"0NNER LES COULEURS. ~X : Cl"2 C2"0-C3*6" 

PRINT"4--NV0VER RU SOUS -PRO GRAMME PRR I F9 A 33553" 

PRINT"5-/E SONT UTILISRBLES QUE LES LETTRES ET LES SIONES ' ICQUI SERT DE 

PRINT"POINT) +(QUI SERT DE VIRGULE). LES RUTRES SERONT DE LR TfilLLE DES ■ 

PRINT"MRJUSCULES." 

HOSUB30000 

PRINT"«l»r*^"l_" ■" 

PRINT"«M30 R*="BONJOUR *" L«10 C-12 : C1-2X2-0 C3"6 - G0SUB35555" 

PR I NT " a II I PI PI III PEON NE " 

fl»«"BONJOUR * " 'L-10-C»12 : C1"9 C2-2'C3"6 : G0SUB53533" 

GOSuBsoeee 

PPINT"«»DirXlUR OBTENIR LES GRANDES MRJUSCULES ■" 

PRINT"1--CRIRE LR CHR^E RVEC DES MRJUSCULES. ~X : R»-" W/Tf-"" 

PRINT-2-TJNNER LIGNE ET COLONNE DE DHPRRT. ~X ! L-20 'C-12" 

PRINT"3~-0NNER LES COULEURS. ~X ' Cl"6- C2-4 : C3-6 : C4"4: " 

PRINT "4-~NVOVER RU SOUS-PROGRRMME PRR I f~» A 35355" 

OO3UB30000 

PPINT"B»pr»"\T_~ " 

PRINT"B550 RM'-ir/r,- . " :L-10X-4 CI -6 -C2-4 ■ C3-6-C4-4 : GOSUB55555" 

PR I NT " XPIMIIIIIIII1D0NNE " 

Kt*"\r/-r,- . " L-10C=4 Cl-6 C2»4C3«6 C4=-4 G0SUB33333" 

GOSUB50900 , 

REM *« DEMONSTRATION hmhhm 

POKE53280 - 8 : P0KE33281 . 

fl*-"#l— - _t K ^L^niJH #D* I* 1234367890 1\', "-." L-l C-l =CI-7 CZ-7 

C3=7 C4-7 G0SUB33333 

R*» ,, RBCDEF0HnKLMN0PQPSTUVUXV2*+" ■ L-L+3 i C"8 ■ C0SUB53335 

Rf="T^- -T/K/ ~- -•-»--"' L=23 : C=0C1"3'C2»13-C3-3:C4=13 : OOSUB33335 

GOSUB58010 

R$="-'EST FINI" L=l C=14X1 = 1 C2=1-C3-1 : C4-I-00SUB53355 

PPINT"«aDaOMMM»W»X _ - L~ -T/-T ,-» ~~" 

PRINT 1 QfP»M»iiM»PJ[ ILLES IHGMAS" 

PRINT" HIM »>»■ R»kJPI»P ET 

h*=" ri-ri s-^-L" Cl«2C2«4-C3'=4-C4=2-C-10'L=9 : GOSUB53333 

A$="L _ IEP r|-^\*-f^_ -»"-CI=9 C2-8-C3-9'C4»8'C»8'L"12 : G0SUB35333 

A*=""LTI -*\\~»" : L=14 : C=10 : G0SUB53533 

R$-"-./'J-_>«I ■,#(■"■#" L*16 C=8 G0SUB33353 

0*«"_->X" 'L»19:C"17:Cla6C2»6'C3=6 C4=6 G0SUB55333 

A*="-T/- ♦_-!"_ -*-*-"'■ L-23 C»l ■CI«=13-C2«13 : C3=14 ; C4-14 : G0SUB33533 

FORU=0TO5 

POKEVC+<40*19>*17*U-5:POKEVC+<40*20)+17+U.5 

GETO$ I FO*= " " THENNEXTU GOTO780 

IFG*=" "THENPOKE53280. 14 P0KE53281 , 6 PRINT"T1" END 



T5 HEXTIJ 
780 FGRU=OT05 

790 POKEViX40*19i + 17+U..6POKEVC+t40*20)*17+U,6 
800 GETS* IFOS='-"THENNEXTUGOTO740 

810 IFQ«=" "THEHPOKE53280.14 P0KE53281.6 PR I NT " ^T' : END 
820 NEXTU GOTO740 

49998 END 

49999 REM-«=PRUSE INDEFINIE=-=» 

50000 pr i nt - w aaogBmcmiMan wc^^ , - -r/i%/,-_ -»-»--■■; 

30010 GETQf IFQ*<>" "THEN50010 

30020 PRINT "rr, RETURN 

5549? END 

53335 VR*33792 VC"33296 IFL:'23THENPRINT"L EST TPOP GRAND" : STOP 

35560 FORJ-lTOLEN(R») :B**MID*<fl*. J, I ) I=RSCfB*J 

55365 IFI=160THENI«32 

35378 IFO64THEN56000 

35375 X-I-32 

53376 Rfl"flfl(X)+128 BB-=BB(X>+128 CC=CC(X>+128 DD*DD<X'+128 

53579 P0KEVC+<48*LJ+C-C1 ■ POKEVC*<40*L)+C+1 ,C2 

53530 POKEVfi+C40*L)+C,RR POKEVR+(40*L)+C+1,BB 

35389 POKEVC+(40#<L*1 > )+C>C3 POKEVC+<40*CL+1 >)+C*I ,C4 

35398 POKEVfl+<40*<L+l)i+C-CC POKEVR+(40»iCL*l>J+C+l,DD 

33600 IFI-320RI-330RI«390RI=420PI=430PI-440RI=460RI=5e0RI=59THENC=C+l GOTO57000 

33610 IFI>47RNDK38THENC=C+2 GOTO57009 

55615 IFI«630RI«45THENC=C+2 

53630 GOTO37000 

36000 IFI>90THEN36300 

56005 X-I-65 

56006 EE*EE(X>+128:FF-FF<X)+128 0G»GG<X)+128 

56009 POKEVC+(40*L>*C.CI 'POKEVC+<40#<L+l>)+C,C2:POKEVOK40*<L+2>>+C.C3 

56010 POKEVR+<40IL>+C.EEPOKEVfl+<40*(L+l>J+C.FF:POKEVR+<40*';L*2>J+C.GG 
56020 C-C+l OOTO57000 

36300 X-I-I93 

36303 HH-HHCX)+12eiI»IICX)+12e;JJ-JJ(X)+128 KK=KK(X>+128 

36319 POKEVC+C40IL)+C<CI ^POKEVC+<40#LJ+C+1 , C2 

36520 POKEVfl+C40»L)+C,HH POKEVA+(40*L)+C+1. II 

36329 POKEVC+C40*(L+1))+C.C3:POKEVC+<48*<L+1>>+C+1,C4 

36330 POKEVfl*C40l<L+n)+C.JJPOKEVR+(40*<L+l>)+C+l.KK 
56340 I F I -20 1 THENC-C+ 1 : GOTO37000 

36330 C-C+2 

37000 IFO38THENC"0L«L+2: I-8- IFL>23THENRETURN 

37010 NEXT J 

37020 RETURN 

60000 DRTR18. 18- 18, 18.24, 19,89. 18,14,14,18.18,18.18.18.18, 18.18-18.18 

60001 DRTR18: 18, 18, 18, 18, 19. 18. 18, 14, 18, 18, 18, 18, 18, IB, 18, 18. 18, 18, 18 
60902 DRTR18.18, 123, 18,18, 18- 126, 18,18,18,14,18,85,86,18, 18, 18-18,84,18 

60003 DRTR19.1B, 18,19.81,82,93, 14,63,66,18, 17,67.38,68.11,67,3,42,43 

60004 DRTR69, 70, 71, 72, 73, 41, 42, 43, 74, 41, 75, 43, 61, 62, 63, 76, 77, 5, 78. 7 

60005 DATA40, 79. 42, 90. 84. 18, 84, 18, 84, 18, 14, 18, 18, 18, 18, 19.85,86, 85-86 

60006 DATR18, 18, 18, 18. 67,3,87. 88, 18, 18, 18, 18 

60007 DRTR18,9I, 18,92,93, 18, 18, 94, 18, 95, 96, 18, 18,97, 18,99,99. 18. 18, 100,90 

60008 DRTR92, 101, 18.102. 103,18, 104. 105,90,92, 106, 18, 107,108,18.18,109, 18 

60009 DRTR18.101, 18, 18, 110, 18, 18, 11 1 , 112, 18, 113, 114, 18, 1 15, 18, 18. 116- 18 

60010 DRTRU7, 1 18, 18, 18, 1 19, 18, 18. 120, 18, 18. 121 , 19, 18, 122, 19, 18, 123-90 

60011 DRTR1Q, 1Z4, 18 

60012 DRTR0, 1,2,3,4,5,6,7,8,9, 10, 1 1 , 12. 13. 6, 14, 15, 16,6, 11 , 15, 16, 17, 19 
69013 DRTR8, 19,10,20,21,22,17,23-24,18,17,18,18,23,26,14,27.28,17,2? 
60014 DRTR24, 18, 6, 1 1,30, 31, 33, 23, 34, 35, 17, 36, 37, 13, 18, 14,4,38,17,18 
60813 DRTR37, 13, 10, 39, 4, 3, 17, 29, 40, 41- 42, 43, 44, 45, 46, 47, 48, 25. 10, 14 
60016 DRTR49, 50- 31, 32, 24, 33, 54, 35, 56, 57, 38, 39, 36, 60, 46- 47, 61, 62, 63, 64 
61000 DIMRH<33>,BBO3>.CC03).DD(33>.EE<26>,FF<:26>,GG(26> 

61010 DIMHH(26>, I H26 J , JJC26) . KK(26) 

61020 FORI-0TO32 RERDRfl. BB, CC. DD Afl< I J-flfl' BB< I)«BB-CC( I >=CC : DDCI >=DD NEXTI 

61030 FORI-0TO23 RERDEE.FF.GG EECI)"EE-FF(n*FF:GG(I)»GG;NEXTI 

61040 FORI-0TO23 ■ READHH, 1 1 , JJ, KK HHC I)-HH: I KI>*I I : JJ(I)«JJ -KKCI >=KK NEXTI 

61030 RETURN 

62000 C-34816 

62010 FORI-0TO2047 : RERDR POKEC+I ,R ; NEXTI 

62820 P0KE36376.21 :P0KE64B, (33792/256) -POKE53272, (33792/64) + <C/1024)-C2#272 i 

62830 PRINTCHR*(147)CHR*<8) 
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60; P2, P4= 1 : P3=0: PC= I 4s RETURN 

BO 10 G0SUB400S COLORO, Z.5, Z: GOSUB420: GOSUB"C'! P2.P1 , 
P4=l:P3=0iPC= 12: RETURN 

8050 GOSUB400!C0LDR0,5.3.7:G0SUB420:GDSUB21O:PC=7 

8055 P3=0iQ»7i IFU4=1 THENP4= I :D»Ot ELSEP4-0 

B059 RETURN 

8100 GOSU6400: COLDRO. 6, 1,4|PEN1 tB0SUB470tPC«15 

BIOS P2»0l 0=1 : IFUl=ITHENP3=ljD=0:ELSEP3=0 

B109 RETURN 

8150 G0SUB40O: COLORO, 2. 7, 5: GQSUB440: G0SUB320: GOSUB^ 
7.0: P4 = 0:P1 = I tPC=6: RETURN 

8160 D0SU&400: COLORO. 3. 2. 4 : G0SUB450: G0SUB21 O: P3=0: P 
C=5: RETURN 

B200 GQSUB400: COLORO. 1 . 3. 7: BRIGHT0:G0SUB440:G0SUB33 
0: G0SU&1?0:G0SUB260: P2= 1 : FC= 16: RETURN 

8210 G0SUB400: COLORO, 1, 3, 3: BRIGHT1 :G0SUB420:P4=1 :P3 
=0:PC=17:RETURN 

8220 GOSUB4001 COLORO, 2, 7, 5: G0SUB420: G0SU&310: P~=0 ; p 
C= 18: RETURN 

8230 G0SUB400: COLORO. 6, 3. 2: G0SUB410: GQSUB290: G0SUB2 
30: GQSUB320: PC , P 1 , P3= 1 : RETURN 

B240 GOSUB40O: COLORO. 3, 7.4:BftlGHTl : GDSUB420: GOSUB27 
0:G0SUB230:G0SUB2 10: P3.P2=1:F'3=0:PC = 2: RETURN 

9260 G0SU6400:C0L0R0,6.5,2:G0SUB430:G0SUB300:G0SUB3 
30: P4= 1 : PC=4 : RETURN 

8300 GOSUB400i COLORO. 3. 1. 1 : BRIGHT 1 : PEN 1 ;60SUB470:GC 
SU8320: P2=0: Pl= 1 : PC=31 : RETURN 

8310 G0SUB400:CDL0R0,2.6.5:GOSU&440:G0SU&3?.O:G0SU&:' 
60s P 1*1 : P4=0; PC=30: RETURN 

8320 G0SUB400: COLORO. 6. 3. 5: G0SUB410: G0SUB330: PI ,P2* 
1:PC=19:RETURN 

B340 G0SUB400: COLORO. 5. 3, 7: GOSUB430: P2=0i Pl=l :PC=21 
: RE TURN 

B360 G0SUB400: COLORO, 7. 2. 4:BRIGMT0: G0SUB470; G0SUB32 
Ot PC-23*P4-0t PI-1 1 RETURN 
9000 G05UB400:C0LORc:..5. 3. 4: G0SU&450: G0SUB32O: G05U&7 



40«PC"L4 

9005 P4= 1-0=2: 1FU1=1THENPI=1:0=0:ELSEF1=0 
9009 RETURN 

90 JO BQSUB400I COLDRO, 2, S,3:BRIGHT0tG0SUB430:G0SUB33 
0:PC=12 
9015 0=5: IFU3=1THENP1=1:0=0:ELSEP1=0 

9019 RETURN 

9020 G0SUB400: COLORO. 1.7. 6: BRIGHT 1 : G0SUB470: G0SUB26 
OiPC-11 i RETURN 

9030 G0SUB400:C0L0R0.7.5.3:G0SUB470:G0SUB290:G0SUB3 
B0rP2"l s PC- lOi RETURN 

9040 G0SUB400: COLORO. 4, 7 , 2: G0SUB470: G0SUB300: P 1 =0: F 
C=9: RETURN 

9050 60BUB4G0: COLORO. 5. 3. 7 : G0SUB430: PC=7 

9055 P1.P2-U0-7: IFU4= 1 THENP4=1 : 0=0:ELSEP4 = 

9059 RETURN 

9 1 50 G0SUB400: COLORO. 2. 7. 5 J G0SUB420: G0SUB320 : GOSUB7 
70 : P7 . P2= 1 : PC=6 : P4=0 : RETURN 

TOO G0SUB400: COLORO. 1 . 3. 7: BRIGHTO: GDBUB420: G0SUB37 
0:G0SUB200:G0SUB220:P4=0:P1,P3=1:PC=16:RETURN 

9210 G05UB400: COLORO. 1 . 3, 3: BRI GHT 1 : G0SUB430: &0SUB27 
0:PC=17:RETURN 

9220 G0SUB400 : COLORO .2.7.5: &0SU&4 30 : GOSUBT^O I P3"Ol F 
C=1B:RETURN 

9230 G0SUB400: COLORO. 6, 3, 2s BRIGHTO: G0SUB4 1 0: GOSUB32 
0:G0SUB190:G0SUB280:G0SUB250:P3.PC=1: RETURN 

9240 G0SUB400: COLORO. 3. 7, 4: BRIGHT 1 : G0SUB430: G0SUB25 
: GOSUB260 : P3=0 : P I = I j PC = 2s RETURN 

9250 GOSU&400:C0L0R0.4.7,5:G0SUB440:P2=l:P!='>:f-C = ~: 
RETURN 

9310 G0SUB400: COLORO. 2, 6. 5: &OSUB4 20: &05UB7""": GOSUF-" 
4<_- : P4=0 : PC = 30: RETURN 

9320 G0SUB400 : COLORO ,6.3.5: G05UB4 1 : G0SUB330: G0SUB2 
20 : F 1 = 1 : PC= 1 9 : RE TURN 

9330 60SUB400: COLORO. 3. 1 .6sGO5UB440iG0BUB280:Pl-OiF 

I i ■ li RETURN 

9400 GOSUB400t CDLI3R0.5,6, 7: G0BUB460t G0SUB77< .: GOSUB- 
10!GaSUB220tP4=0!PC=32i RETURN 

°4 10 GOSUB4O0:C0L0P0.4.7.5:G05UB44i;) ; r:.' = ;:F'C = 29:RETU 



°47'j GDSUB4I..0: COLORO. 6. 2. 1 i BRIGHT 1 : PEN1 : G0SUB470: 
SUB320:P3=0sPC=27 
9435 0=4: IFU2=1THENP4=1:0=0:ELSEP4=0 

9439 RETURN 

9440 G0SUB400: COLORO. 7.3.4: GOSUB440: G0SUB3 1 : P7= 1 
C=26:RETURN 

-9450 G0SUB400:C0L0R0,5,7, 2: BR I GHTO : G0SUB470: GOSUB32 
OiG0SUB330:GOSUB36O: P2= 1 : P3=0: PC= 25: RETURN 



Tl 



99 BASIC 
SIMPLE 
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4460 


CALL SOUND 


1200.200,2 


•470 


FOR 1-1 TO 


30 


44B0 


NEXT I 




4 490 


CALL HCHAR 


10.24.33) 


45O0 


GOTO 45BO 




4910 


BIO- 3 




4520 


CALL HCHAR 


14.24.71) 


4530 


CALL SOUND 


1200, 2O0. 2 


4540 


FOR 1-1 TO 


50 


^=,5<:. 


NEXT I 




4 5A-' 


CALL HCHAR 


14.24.33) 


♦570 


GOTO 4580 




4580 


REMPLA-REMPLA*! 


4590 


CALL HCHAR 


4.9,32.6) 


4600 


CALL HCHAR 


4,17.32.6) 


4610 


IF REMPLA=3 THEN 4630 


4620 


GOTO 33B0 




4630 


FOR DELAI>= 


TO 500 


4640 


NEXT DEL A I 




4650 


X4»o 






X5=0 




4670 


BCORE=0 




46B0 


REMPLA-0 




4690 


A1O-0 




4700 


B10»0 




17 10 


CI 0-0 




■1 .'2m 


D10=0 




.i;.-'-..i 


E 1 0«0 




♦740 


f m-.-i 




,i ■■■... 


B10-0 




4 760 


H10-0 




4770 


GOSUB 510 




4 .■•?. ■ 


CALL CLEAR 




4790 


GOTO 1240 


I 



SNAKE 



Ou les problemes dun serpent bleu sympa et dalto- 
nien, face a de succulentes pommes rouges et d'mdi- 
gestes champignons verts. 

Pascal CUGNIET 



Mode demploi : 

Aucune extension necessaire pour cejeu en deux programmes Le 

piemier contient les regies, ie second ie ieu iu--meme 



2 PRINTCHR*-. 147>+CHR*<-142.) POfcE36879,25 P0KE36878, 15 P0KE36867. 174 P0KE36865,38 

3 F0RI-1T08 PRINT NEXT P0KE657128 

4 PRINT PRINT"! VEUILLEZ PRTIENTER " P0KE649, 1 RESTORE CLR QOSIJB3080 G0SUB3828 P 

ri nt -ri- 
se A-160 FOR1=?790TO?922STEP22 

51 POKEI+6.R POKEI+9.A POKEI + 11. RPOKEI + 13.A P0KEI + 13,fl POKE 1 + 19, R 
55 NEXT 

57 FORI-0TO2 POKE I +7923, A POKE 1+794 l.R POKEI +7791, fi POKE 1+7809. R 
$0 NEXT 

90 P0KE7841,fl P0KE7886, R POKE7802-R POKE7868, R P0KE7894.95 P0KE7876,fl 
90 FOPI-0TO22STEP22 

188 POKEI+7812.R P0KE7882+I,fl P0KE7917+I,fi NEXT 
120 F0RI-7837T07859 POKEI. fl NEXT 
150 fl«223 F0RI-8T06 REflDBPOKEB.fl NEXT 
170 H*95 FORI-0TO3 RERDB POKEB.fl NEXT 

200 POKE7813.10S P0KE7926, 103 POKE7801 , 233 P0KE7922, 160 
210 POKE7790.233 POKE7903.233 P0KE7B87. 168 
215 POKE7829.105 POKE7828.233 POKE7850. 105 P0KE7794. 160 
300 P0KE36879.8 FORI-8877T08897 
310 REHDR POKEI.ft POKE36875,2e0 
328 F0RBMT078 NEXT P0KE36875,8 
330 NEXT 

345 POKE3687B.2 F0PR-1T03 
350 F0RI*38796T038918 
353 POKE36876.220 

360 POKE I, 2 POKE I - 1. 1 FORB-1TO60 NEXT 

365 POKE36876-0 

370 NEXT NEXT 

490 P0KE36865.1? P0KE36867.31 P0KE36869 - 254 

500 POKE36879. 110 PRINT"C1"; PRINTCHR*< 14), 

518 PRINT'PRINTTRB(8>"iSNRKE" PRINT 

520 PRINT"!!!" PRINT"VOUS DEVEZ MRNQER LES " 

530 PRINT" POWIES EN EVITRNT L6 " 

340 PRINT" MUR RINSI QUE LES " PRINTTRBSSrCHRHPIGNONS" PRINT 

341 PRINT" ".PRINT"* TRPEZ UNE TOUCHE 
542 GETT* IFT»-""THEN342 

343 PRINT"™- PRINT PRINT" 

346 PPINTTflB<7)"T0UCHES" 
349 PRINT PRINT"GRUCNE">2 
369 PPINT" HRUT*>F3 F7C 
570 GOSUB600 PRINT PRINT 
580 PRINT" 

593 GETT« IFT*«""THEN393 
596 PPINT"TTWM O.K. 

397 P0KE198. 7 POKE631. 76 P0KE632. 207 P0KE633- 13 P0KE634. 82 P0KE633. 213 P0KE636. 1 
3 NEW 

600 P0KE36878.15 RERUN, S ■ IFS=-ITHENPOKE36873,0 RETURN 

610 POKE36875.H FORI-1TOS NEXTOOTO60e 

3800 FORP.A--0TO600 BB-PEEKC32768+FIA) POKE6I44+flR»2. BB 

3810 P0KE6145+Rfl*2,BB NEXTRETURN 

3828 P0KE52.28 PQKE56.28 

3029 F0RI-7168T07679 POKE I .PEEK ( I +25600 > : NEXT 
3038 FORLL-0TO39 REflDFF P0KE7168+LL-FF "NEXT 

3031 0RTft235, 195, 133.165. 163,133. 195,235,6,104,234,235,223,238, 124,56 

3032 DRTR62.69, 145, 126.28,28,48, 128,68.24,133,231,231.153,24,68 

3033 DRTA60,0, 129,133,133, 129,0.60 
3940 RETURN 

3850 DRTR7835 . 7868 ,7819, 7864 , 7803 . 7872 , 7B95 
3069 DATR7856, 7881. 7863, 7908 

3030 DHTA1, 21, 26, 5, 21, 18. 32, 16.1.19,3,1,12,32,3,21,7.14,9,3.28 

3099 DATR203. 490 215. 400, 221, 406. 215, 200, 209, 200, 215, 400, 221, 200, 215, 280, 209. 408 
3095 DHTR-203.400,221 488-225.408.228,888,-1.-1 
REflDV. 




mmW PPINTTRF'Tr'MGflrlME-'':. T"0 OT918 \y/. 
TO480 NEXT PPINT":T P0KE36878. 15 P0KE36879, 



POUR VOUS DEPLRCER "PRINT" VOUS DISPOSEZ DES 
X<-DROITE" 



PRINT"** TRPEZ UNE TOUCHE M", PRINT PRINT 



88 P0KE36879 59 SI =2 G*G+1 PRINT'TOTI 
-1 D-l 

81 F0RH.8T058 Z( II>=?910 NEXT FORI" 
30 

82 IFG-5THENG-G-1 GOSU82000 G=G+1 
84 IF0»7THENG«G-1 GOSUB2808 G*G+1 
138 F0RI-1T0N1 IFG*8THENPR=0 

140 CH-INTCRNDC 1 )*459>+7703 P0KE36875 .. 220 ■ IFCH=791 1THEN148 
138 P0KECH,2 POKECH+30720.5 FORI I-1TO20 NEXT P0KE36S75-6 NEXT 
168 F0RIMT0N1 
178 P"INT<RND<l)«439)+7703 POKE36875.240 

175 IFINT';':P-21-768eV2K>(P-21-76e0J/2OPP=7910THEN170 

176 IFINT<<P-7680+l)/22)-<P-7680+l)/22ORP>8162ORP<:77O2ORPEEKfPJ*lTHEN170 
1 88 P0KE36873 , : POKEP . 1 : POKEP+30720 , 2 ■ NEXT 

190 FORI-0TO21 ■POKEI+7688.8 POKEI+38400,2 POKE I +388*34. 2 POKEl+8164,6 NEXT 

288 FORW680TO8164STEP22 

218 POKEI.0 POKE1+30720.2 POKEI+21 ,0-POKEI+30741 ,2 NEXT 

220 POKE7910. 3 POKE38630, 6 : FORI I "1 T0688 - NEXT P0KE7918, 32 

520 IFPEEK<197)-33THEND— 1 

338 IFPEEK<;197>»26THEND»1 

548 IFPEEK<197)«63THEND"22 

330 IFPEEK(197>«35THEND--22 

368 IFPEEKCC+D>«lTHENF0RI*238T024BSTEP-.5 P0KE36976. 1 NEXT POKE36876.0 

370 IFPEEK(C+D)-0ORPEEKfC+D'-2ORPEEK<C+D)-3THENFOPI-252TO240STEP-l P0KE36877, I N 

EXT POKE36877-0 

580 IFPEEK(C+D)»ITHENSC-SC+1 T-T+l Sl-Sl+1 

390 IFPEEKCC+D)-0ORPEEKCC+D>-2ORPEEK':C+D)"3THEN9009 

606 IFT"NlTHENNl-Nl+3: GOTO80 

665 C-C+D Z<UX>»C P0KEZ<U*O,3 POK£Z<JJX)+30720,6 

670 UZ-UX+1 IFU;>50THENU;->1 

675 IFUX>SlTHENP0KE2<:Uf;-SP.32 

676 IFUX<«S1TMENPOKEZ(30-(S1-U;;+1)),32 
690 F0RI-1T0PA NEXT : GOTO320 

2888 PRINT":*" P0KE36879, 152 FORV«0TO58TORI = 1TO6 PRINT NEXT 

2801 PRINTTRB<4r , nBRRaB BONUS BWiflfl" FORI I»1TO30 NEXT 

2020 PRINT"*" F0RI-1T06 PRINT NEXT PRINTTflB<4>" " F0P1 IMT028 NEXT 

2040 PRINT PRINTTH8<7)"81 SCORE" PRINT PRINT 

2050 PRINTTAB(3r'lWWfl«'MAB<7)SC+V; PRINTTRBa3>"tWRA" P0KE36875.235 

2060 F0RI-1T018 -NEXT PRINT"*" POKE36875,0 NEXT SC=SC+VFOPUI»0TO980 NEXT -PRINT-H 

2861 P0KE36879, 30 RETURN 

0888 N>255 

8038 IFUX-1THENUX-58 

8833 UK-UX-1 :N-N-1 P0KE36875.N : F0R1I-1T03 NEXT 

8033 POKEZCUJO^-IFUX-ITHENU/i-se 

8038 IFPEEK<2i;U?:-l))«32THEN8038 

8040 GOT 08038 

8848 P0KE36B75.8 FORI-1TO400 NEXT 

8038 POKE36873.0 FORI-1TO400 NEXT PRINT"rr 

8033 FOR I - 1 T03 PR I NT ■ NEXT : P0KE36879, 230 P0KE36875, 

8100 PRINTTRBCSJ-WR EB5C0REVI RR" PRINT PRINTTABC8 'SC P0KE36878.2 

8101 F0RI-1T04 PRINT NEXT 'PRINTTRBC2VKBBB MUNE AUTRE?! KBBB" FORI=1TO300 NEXT 



8110 PRINT"*" F0RI-1T012PRINT NEXT PRINTTflB<2r 

8188 OETT*: IFT*-"0"THENP0KE36875,8 RUN70 

3200 IFT$="N"THENSVS64802 

8380 FORI-1TO300 NEXT 'P0KE36875. 248 G0T08855 



PRINT"*" 



<JjSTiCi|R H 
V CBM64 
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■:2848 

63088 
63001 
6 3002 
6 300? 
63084 
63005 
63806 
63807 
63808 
63089 
63010 
63011 
63012 
6;-913 
63014 
63015 
63016 
63017 
63019 
63019 
t -'ijl^ 
63821 
63822 

63023 
6:-riiJ 
63825 
63826 
63827 
6302S 
63023 
63830 
63031 
63832 
6383? 
63034 
63835 
63036 
63837 
6?83? 
6383? 



RETURN 

DRTR0, 126,66,98 
DATR94.64, 126,8 
DRTR0, 0,120, 12 
0RTA124. 284. 126.8 
DRTR224,96,124, 102 
DATA102, 102,232.0 
DATfl0,9,62, 102 
DATA96, 96,62-0 
DATA28, 12, 124,204 
DRTR284, 284, 126.8 
DRTR0.0 6O. 182 
DRTR126, 96.60.8 
DRTR38,48,48.124 
HRTR48, 48. 128,6 
DRTA0, 0.62. 102 
DRTA102,62,6124 
DRTR224.96, 124. 102 
DHTR102, 102.238,8 
DRTR24, 0,56-24 
DflTA24.24.126 8 
DflTR12.0-28.12 
DATR12. 12. 109.56 
DRTfl 224, 182, 108 
. 120 

DRTH120. 109.230,0 
DRTR56- 24.24,24 
DflTR24.24.1260 
DRTA0 0.252.214 
DRTA214. 214, 214,0 
DflTfl8.0 252.102 
DRTR182, 102,230,0 
DRTR9. 0,60. 102 
DHTR102, 102.60.0 
DRTR8. 0.252. 102 
DRTA102. 124,96-248 
DRTR0. 0. 126.204 
DATA204. 124, 12,30 
DATA0. 0.126,58 
DRTR48,48, 128-0 
DflTfl80.62,96 
DATA68,6,124,0 



63040 

63041 
63842 
63043 
63044 

63045 
63046 
63047 
63048 
63049 
63050 
63051 
63052 
63033 
63034 
63035 
63056 
6305 7 
63059 
630^9 
63060 
63061 
63062 
63063 
63064 
63065 
6 :06-£ 
63967 
63068 
63 06? 

e?c-ri 

63872 
63073 
6 3074 
63075 
k3h?6 
63077 
63078 
6307? 
63080 
63081 
63682 
63Q83 
63084 
63885 
6 3886 
63887 



DATR16, 48, 124,48 

DATA48, 54,28,0 
DATR0, 0,238, 102 
DRTR182. 102,62-0 
DRTR0,0,198,198 
DRTA189.56, 16,0 
DflTRO-0,214,214 
DRTR214.254, 109,0 
DRTH00, 102,60 
DRTR24. 60, 102,0 
DATA0, 0,239, 102 
DATA102.62.6.124 
DRTA0, 0,126,76 
DATA24. 50, 126.0 
DRTR60. 48,48. 48 
DRTR48,48,60,0 
DRTR28,50,48,120 
DATR48, 98-232,0 
DRTR60,12.12,12 
DRTR12, 12.68.8 
DRTR16, 56. 124,254 
DRTR56.56.56.56 
DRTR16, 48, 127,255 
DATA127-48-16.0 
DATA8, 8,0,0 
DATA0.0,0,8 
DRTR48. 48.48.48 
DRTR48. 0.48.0 
DRTR102 102.36.0 
IifiTRO. 0.0,0 
DATR0. 40, 124-48 
DATR124-40.0.0 
DATR16 124- 208, 124 
DRTA22- 124, 16-0 
DRTA93 102- 12-24 
DRTR43- 102.70.0 
DRTA120.204, 104,48 
DATA90. 204. 118,0 
DATA48.48.16.32 
IiflTRO- 9.0,0 
DflTR12.24.48.48 
DRTR4S.24,12,8 
DflTR48.24,12,12 
DftTfll2,24,48,0 
DRTR68. 108.56-254 
DRTR56. 109-68 
DRTR0,0.24,24 
DRTR126, 24.24.0 
IiRTRO. 0,0,0 



6308? 
63090 
I 389 1 

63032 
63093 
63094 
63895 
63096 

63098 
630?? 
6310O 
63101 
63102 
63103 
63104 
6? 103 
63106 
63107 
63109 
63199 
63110 
63111 
63112 
63113 
63114 
63113 
63116 
63117 
63118 
63119 
63120 
63121 
63122 
63123 
63124 
63125 
63126 
63127 
63128 
63129 
63130 
63131 
63132 
63133 
63134 
63135 
63136 
63137 



DRTfie.48,48,96 
DRTR8. 0,0,0 
DATR124, 0,0,0 
BRTH0, 0-0.0 
DRTR0,48,48,0 
DRTR2.6, 12-24 
DRTfl48,96 64.0 
DHTA0. 124,206,214 
DATA230, 198 124,8 
DATA0,8,24,56 
DATA24,24,68,0 
DRTR0.60-102.14 
DRTA56, 96, 126,0 
DRTA0, 126,6,28 
DRTR6, 102,60.0 
DRTR0.96. 108. 188 
DATR126.12, 12,8 
DRTR0, 126,96-124 
EIRTR6.6, 124,0 
DRTR0.60,96,124 
DRTR102, 102,60,8 
DRTR0. 126.78, 12 
DflTfl.24, 48,48.8 
DRTR0. 68, 182-60 
DATA102, 102,60,0 
DRTR0,68-I82.182 
DHTR62,12-lZe-8 
DRTRB.24,24,0 
DRTR0-24-24.0 
DRTR0,8,0,48 
DflTR8,48,48,96 
DATA12, 24,48,96 
DRTR4S,24.12,0 
DRTR0, 0,0,60 
DRTR0, 60,0,0 
DflTfl48.24, 12,6 
DATF)12.24,48,0 
DRTA60, 182,6, 12 
HRTR24 824,0 
DATA235, 0,0,0 
DATR0. 0,0,0 
DATA16.S6,188,I98 
DATA234, 198, 198,8 
DATA252-102.102-124 
DATA182, 182,232.0 
DATR124,198,192,192 
DATA192,198, 124,8 
DRTA252,102,102.102 
DATR102, 102,252,0 



63138 
63139 
63140 
63141 
63142 
63143 
63144 
63143 
63146 
63147 
63148 
6314? 
63150 
63151 
63132 
63133 
63154 
63135 
63156 
63157 
63158 
63159 
63160 
63161 

-: : l si 

63163 
63164 

63165 
63166 
63167 
63168 
63169 
63170 
63171 
63172 
63173 
63174 
6? 175 
63176 
63177 
63178 
63179 
63190 
63181 
63192 
63193 
63194 
63185 
63186 



DRTR234.98.104.120 
DRTA104. 98. 234.0 
DRTR254,98.96,120 
DRTR96. 96, 240,0 
DATA124,198,192,286 
DRTH198. 198.126,8 
DRTR182.182, 182, 126 
DRTR102, 102, 182,0 
DRTR60, 24,24,24 
DRTR24,24,60,0 
DRTR62. 12, 12.12 
DflTfll2,76, 120,8 
DRTR230.108-120. 112 
DHTA128, 108,238,8 
DATA24B, 96, 96,96 
DRTA96. 98, 254,8 
DATA130. 198,238.254 
DATA234, 214, 198,0 
DATA198.230,246,234 
DRTR222,286, 198.0 
DRTR124.198. 198, 199 
DATR198. 198. 124,0 
DATR232,I02,102,124 
DRTR96, 96, 240,0 
DATR124,198,198,198 
DATA214,214,124,14 
DRTA252.102.102.124 
DATR102, 102,230,0 
DRTR124, 198,192. 124 
DRTR6, 198, 124,8 
DRTR126,90,24,24 
DRTR24. 24,60,0 
DRTR198. 198. 198, 198 
DRTA198.198, 124,0 
DATA198- 198, 196, 198 
DATA 108 56. 16,0 
DRTR198 214, 214,214 
DflTR214.234, 108.0 
DRTR198, 108,56,36 
DRTR108, 198, 198,8 
DRTR230 182,182,68 
DHTR24,24,60,0 
DRTA254. 142,28,56 
DRTR112,226,254.8 
DflTA253,0. 255-8 
DRTR8 0.8,0 
DRTR0,0.30,51 
DflTA5I.31,30,e 
DflTR233,255,0,0 



63197 
63199 
63189 
63190 
63191 
63192 
63193 
63194 
63193 
63196 
63197 
63198 
63199 
63200 
63201 
63202 
63283 
63204 
63283 
63206 
63287 
632W 
63209 
63218 
63211 
63212 
63213 
63214 
63213 
63216 
63217 
63219 
63219 
63220 
63221 
63222 
63223 
63224 
63225 
63226 
63227 
63229 
63229 
63230 
63231 
63232 
63233 
63234 
63235 



DATA0, 0.0.0 
DATR204, 0,0,0 
DRTH0, 0,0.0 
DHTR170, 170,0,0 
DRTA0, 0,0,0 
DRTA0, 0,0,0 
DATA0, 0,0,0 
DATA108,0,36,24 
DATA24, 24, 126,0 
DATA24. 36.36. 24 
DRTA24. 24. 126.0 
DATA34, 127, 127, 127 
DATA62,28,9,9 
DRTR3 1,284,0 ,0 
DATR0, 0,0,0 
DRTA24,24, 182, 182 
DRTA24, 24,68,8 
DATA0, 0,62,3 
DATA63,99,63,0 
DRTR0, 12,0,12 
DRTR12, 12. 12,12 
DATA0,e,128.284 
DRTA232, 192, 120,8 
DATA83, 170,0,8 
DATA0, 0,0,0 
DATA38, 76.252, 102 
DATA182, 102,230,0 
DATA96,48,128.12 
DRTR124,204, 126,0 
DHTA34, 8,68, 182 
DRTR126,96,60,0 
DATA120,0,120,12 
DATfll24,Z84, 126,8 
DflTA48,24,68, 182 
DATA126,96,68,0 
DATA8,2,68,110 
DATA118, 182, 188,0 
DHTA36,188, 12012 
DATA124, 284, 126,0 
DflTR24,36,60, 102 
DRTR126, 96,68.0 
DRTR8, 28,62, 127 
DATR62,2B,8,0 
DRTA12,24.60,182 
DRTfll26,96.68,8 
DRTfl6e-e,238,182 
DATR182. 182,62.0 
DATA108, 0,238, 102 
DATA102, 102,62,8 



63236 
63237 

63^r. 

63239 
63240 
63241 
63242 
63243 
63244 
63243 
63246 
63247 
63248 
63249 
63250 
63231 
63232 
63253 
63254 
63255 
63256 
63257 
63238 
63259 
63260 
63261 
63262 
63263 
63264 
63265 
63266 
63267 
63268 
63269 
63270 
63271 
63272 
63273 
63274 
63273 
63276 
63277 
63278 
63279 
63288 
63281 
63282 



DATR36, 24,24,28 
DATR36, 24, 126,8 
DATA24, 12,238, 182 
DATA182, 182,62,8 
DATA24,36,238.182 
DHTA102, 102,62,8 
DRTA24,36,68,182 
DATA102, 102,68,0 
DATA1,36-108 
DATR128. 112,96,0 
DATA8,28,62,127 
DATA127.28.620 
DATR0, 0,62, 102 
DATA96 . 96 , 62 . 24 
DATA0,24,0,24 
DATA48. 96- 102.60 

DATA0,e,e,e 

DATA0,48.48,96 
DATA0,24,24.0 
DATA8.24.24.0 
DATA15,7,14,14 
DATA14.28.28.31 
DATA248. 224 . 248 . 240 
DATA240,248.128.120 
DATA56. 36,56, 112 
DATAI12. 112.248,0 
DATA248.249.68.60 
DATA60, 60, 126.0 
DATA233,I24,120.120 
DATfll20,120,123,127 
DATR224, 36. 29.28 
DATA36. 112-224,240 
DRTR120, 120, 120. 120 
DATA120, 126,255.0 
DRTR36, 28,28-28 
DfiTfl36, 112,224,8 
DHTH31,36, 112,248 
DATA240, 248, 240,240 
DATA248, 56,28, 12 
DATA4, 0,8,0 
DATA240,240, 128,120 
DRTR60,30,13.8 
DflTfl0, 0-8,6 
DflTR12.24,248,8 
DATH233. 121,128,128 
DATR120, 120,128,128 
DATR192,224.248,120 



SAD SUN 



Quelques siecles en arriere, le capricieux pharaon 
Tout en carton", decide la construction de sa pyramide 
en blocs de pierres rarissimes. Devinez un peu qui est 
charge de leur d6couverte ?.. 

Eric PARTOT 



Mode d emploi . 

Ce jeu comporte 4 tableaux : 

Tableau 1 : vous eles en bas et vous devez prendre la cle en haul, 



7199 BASIC ETENDU 




TI-99/4A BASIC ETENDU 
......SADSUN******* 

REALISE FAR ERIC PARTOT 



BO GOTO 1270 



120 E = : : M-0 : : S-0 

130 CALL SCREEN(2):: CALL MAGNIFY 1 2) : : C 

ALL SPRITE(#2B. 49. 7. 192/2.256/2) : : 60SUB 

1420 
140 CALL COLOR U. 1. 1) tl CALL CLEAR ;; CA 
LL COLOR (2, 1.1) 

190 FOP A=2 TO II STEP B :: FOR B- 1 TO 2 
8 STEP 4 :: CALL HCHAR ( A. 6. 40) : : FOR C- 1 

TO 4 :: CALt HCHAR(A+C"2.B+C. 40) : t NEXT 

C : i NEXT B : t NEXT A 
14,0 RANDOMIZE :•• CALL HCHAR (2. 1 . 40, 32) i . 

CALL VCHAR (1, 1.40.24) I t CALL VCHAR(2.32 
,40,23) 

170 CALL SCREENI2)!! CALL COLOR< 1 , 3, 4, 2, 
14.4)t! CALL SPRITE(#1, 4,4, 13,160.256/2) : 
x CALL SPRITE(#2,62,16,1,1> 
180 FOR 1-4 TO B ti CALL COLOR < I , 7. 10) : i 

NEXT I ■■ CALL SPRITE(#3. 34. 2, 11,256/2) 
190 GOTO 280 

200 CALL G08O(F):t CALL JOVST ! 1 . X, Y ) j : C 
ALL M0TI0N(#1.-Y, X)i : CALL CDL(U):: CALL 

C0!NC<»1.»3, 10. R) : : IF U--1 OR R— t THE 
N 210 ELSE 200 

210 IF R--1 THEN IF S- I THEN 330 ELBE CA 
LL SPRITE (#3.35. 7. 16B. 256/2) : i 5=3+1 i : 
CALL MOTION(#1.0.0):: GOTO 230 
220 GOTO 240 

230 FOR L-6 TO 20 STEP 4 :■ CALL HCHAR (L 
,2.32.29):: NEXT L i: GOTO 200 
240 REM touch- ' 

250 IF 5-1 THEN CALL SPRI TE (#3. 34. 2, 11,2 
56/2) :i 3-0 
260 FOR H-l TO 2B 
: i NEXT H : i VIE-VIE-1 

270 FOR 0W2 TO 16 i: CALL SCREEN <0W) : ■■ 
CALL COLOR(#l .QW-1) : : CALL SOUND I - I . QW» 1 
OOO.O) :: NEXT QW 

2B0 DISPLAY AT(23, DSIZEI4) : "VIE-" ri CA 
LL HCHAR(23.?.3Z.<S)ii CALL HCHAR (23. 7. 64 

,VIE>:: CALL SCREEN(2):l CALL COLDRmi.l 



/VA V//TE Mf RAPpOPTfP tf Mi'U-f'CWS 
OE SLCCS PF P/£fZRES PAPR/'^S/MES / 
\j y A& UN <?UAgT p'HEuPE 

puis alier sur la Irappe en bas en evitant les poleaux el les plantes 
carnivores que le nuage arrose en passant. 

Tableau 2 : Vous etes en haul a gauche el vous devez aller jusqu'a 
la fenetre en bas, en evitant les parois et les stalactiles qui (ombent. 
Tableau 3 : Vous etes en haul a gauche et vous devez alter jusqu'a 
I'ascenseur qui passe a droite de I'ecran en evitant le cadre, les 
trappes et le monstre de leu 

Tableau 4 : Vous devez trouver dans lordre. les quatre morceaux 
de la pyramide qui se trouvent chacun sur une ile. en evitant leau 
et le fantome du marais. lorsque les qualre morceaux sont retrou- 
ves. la pyramide apparait et le |eu revient au premier tableau 



THEN 760 
710 CALL M0TI0N(#l,0,0,«2,0.O) : I FOR 1-2 

TO It :: CALL SCREEN! It it CALL C0L0R(#1 
.1-1 ):l CALL SOUND (-1, I • 1000.01 i i NEXT I 
720 VIE-V1E-1 

730 CALL LOCATE («1. 20. 25): J CALL LOCATE! 
■2, 192/2,256/2) 
740 GOTO 650 

730 •———=--— -—---=- 
760 ! 4eme TABLEAU 

780 SC0RE=SCOR£+VIE«10O 

790 CALL DELSPRITE(ALL) i : CALL CLEAR :; 

CALL COLOR! 1 .2.2) : I CALL SCREEN12):i CAL 

L nAGNIFY<2)it CALL SPR ITE !»28. 52. 16. 1 92 

/2. 256/2) 

800 CALL COLOR! 1. 1 . I > I I CALL COLOR (S>, 1,1 

) : : CALL COLOR! 10, 1. 1 ) 

810 GOSUB 1B50 :i TRS-1 if 0-0 it H-0 

820 CALL HCHARU, 1,96.76*) 

830 FOR 1-2 TO 26 STEP 8 it FOR TI-I TO 

4 ii CALL VCHARI3, I+TI.32. 17>li NEXT TI 

it CALL VCHAR(3.I*TI, 104,17)ti CALL HCHA 

RI20, 1 + 1, 105,5) 

B40 CALL HCHAR(20. 1+5. 107) 

850 CALL HCHARUO.I + TI + l. 105.3)lt CALL H 

CHAR! 16, I+TI + 1, 105,3) : i CALL HCHAR! 10, T I 

*I,106)tt CALL HCHAR! I6.TI+I. 106) I t NEXT 




CALL COLOR 4 



THE 



E-0 



CALL MOTIONIBH.O 



400 CI=1 t: FOR 1-1 TO 8 1 

.2.1):: NEXT I :: E-0 ll M-0 

410 GOTO 1530 

420 DISPLAY ATI23. 1 I SI ZE (4 ) : "VIE-" :: CA 

LL HCHAR123. 7.32.9) i: CALL HCHAR (23. 7. 64 

.VIE):: CALL SCREEN(2> 

430 ON CI GOTO 440.500 

440 GOSUB 520 :: FOR 1=1 TO 9 : I CALL CO 

LORCI.4.1):: NEXT I :: CALL C0L0RI14.10. 

1) 

450 CALL COLOR!*: 

CALL COLOR !dl, 4) 

#2.7) 

460 CALL JOYSTfl.X.Y) i: CALL MOTION!" 

Y.X):: CALL COLCEI:: CALL COINCtALL.M 

IF P\< sO OR E ' >0 THEN 470 ELSE 460 
470 CALL COINC mi,#2. 10, J)t I IF J»- 
N 550 

480 CALL MOTIONmt.0.0) I I FOR 1-2 TO 
■t CALL SCREENIIli: CALL COL OR (• 1.1- 

CALL SOUND l-l. I«1000,( 

: : M=0 
490 vrE-VIE-1 :: CI-2 ll GOTO 420 
300 IF VIE-0 THEN 1040 

310 CALL COLORmi.8) : t CALL LQCATEml,13 
.2S):i GOSUB 520 I: CALL SCREEN ( 2 1 : I GOT 
460 

520 FOR 1-3 TO 27 : 
RND»B) •DIF + 1.0) : : I 
00. 110.0) 
530 RETURN 

540 ' »——>«--- — -——> 
330 ' 3bik» TABLEAU 

560 '-«=-—««.— -—— — 
570 SCORE-SCORE* VI E»SO 

580 FOR 1-1 TO 8 ti CALL COLOR ( 1 . 1 , 1 > : i 
NEXT I 

590 CALL DELSPRITE(ALL)!: CALL CLEAR II 
CALL MAGNlFY(2)ir CALL SPRI TE (#28, 11 . 2. 1 
92/2.256/2) ti GOTO 1660 

600 FOR 1-3 TO 19 t i FOR J-4 TO 31 n TE 
-INT IRND*7) + 1 ii IF TE>2 THEN CH-32 ELSE 

CH-34 
610 CALL HCHAR(I.J,CH>1: NEXT J i : NEXT 



I 

860 CALL VCHAR(1,2,96,24) I : CALL VCHAR i 1 
,32,96.24)11 CALL VCHAR (3, 31 , 104, 17) 
870 FOR 1=7 TO 13 STEP 6 :: CALL HCHAR ! I 
*l,3.32,2B)lt CALL HCHAR ( 1*2, 3. 32, 2B) : : 
NEXT I 

880 CALL DELSPR1TE'M2B) : t CALL MAGNIFY!! 
):: CALL SPRITE(#1,64, 1 , 20, 23, #2, 100, 1, 1 
92/2,236/2,t3,S8,l, INT<RND«! 16) +34, 30) 
890 DISPLAY AT(23, 1)SIZE(4) t -VIE-" i: CA 
LL HCHAR(23,7,96,9)t i CALL HCHAR (23, 7, 64 
.VIE):: CALL SCREENI2) 
900 IF VIE-0 THEN 1040 

910 CALL CQL0R(10,3,5.9.B.3,1.4.3)ii CAL 
L COLOR mi, 10) : : FOR 1-5 TO 8 11 CALL CO 
LORtI, 14, 1) t i 



CALL C0LQR(#2. 



,96,160)11 CALL HCHAR 
• 1 TO 3 : ( CALL VCHAR 
* i : CALL ' 



790 


IF V 


E=0 THE 


N 1040 








300 


FOR A*l TO 2 


1 STEP 2 : 


CALL 


HCMAR 


A 


.2, 


2.30 


II NEX1 


A 








310 


CALL 


LOCATE i 


tl, 152.256 


2):: 


CALL MOT 


ION 


•2.0 


INT(RNE 


•25)+10):l 




I GOTO 


2 


00 














..'.Jo 














130 




?«fli* 


TABLEAU 









?2. 



cal;.. vCHAfi.: 



350 SCGRE=SCORE+VIE*10 :: DIF-DIF*0.5 

360 CALL COLOR (1. 1. 1) : : CALL CLEAR i: CA 

LL DELSFr.ITE(ALL) : I CALL SCREEN(2):i CAL 

L MAGN1FY(2):: CALL SPRITE ("28. 30. 5, 192/ 

2.256/2, 

370 CALL COLOR! 14. |, l) 

3B0 FOR 1=1 TO 1000 ti NEXT I n CALL S* 

RITEml. 64, 1.13.25) t: CALL SPR I TE ( B2, 1 4 1 



620 CALL HCHAR(20, 
(1.1.96.64)tt FOR i 
! l.A.'Ji.ZO) : : NEXT 
96.24) 

630 CALL VCHAR (3. 4, 
.3.32, 17) 

640 CALL DEL3PRITE(«2B)n CALL MAGNIFY 1 1 
lit CALL SPRITE (HI, 64, I, 20,25, »2, 100, 1.1 
92/2, 236/2, §3. 38, 7. 10,243,4,0) 
630 DISPLAY AT(23. 1 )SIZE(4) i"VK»" tl CA 
LL HCHAR(23.7.96.9) t I CALL HCHAR (23. 7.64 
.VIEJti CALL SCREEN(2) 
660 IF VIE-0 THEN 1040 

670 FOR 1-2 TO B t: CALL COLOR ( I , 10. 1 > : : 
NEXT I ti CALL COLOR (9, 14. 1 ) : : CALL COL 
DRd.16.lJ:: CALL COLOR ( #2, 1 1 ): J CALL CO 
LOR (#1.5) 

680 R-0 :t 0=0 :: IF VIE-0 THEN 1040 
690 CALL JDYST(l.X.Y):: CALL M0TI0N(#1.- 
Y.X):i CALL INC :i CALL COL (R) : : CALL CO 
INC(ALL.O)!l IF R--1 OR 0—1 THEN 700 EL 
SE 690 
700 CALL C0INCml.«3. 10.ASD) i I IF ASD--1 
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63263 
63264 
63293 

632B6 
63287 
63298 
63289 
63290 
63291 
63292 
63293 
63294 
6329? 
63296 
63297 
63299 
63299 
63380 
63301 
63382 
63383 
63384 
6338? 
63386 
63387 
63389 
63389 
63310 
63311 
63312 
63313 



DMTR128, 68,60. 60 
DflTM60.68,60,68 
DRTR36. 112,224,8 
DHTR253' 124. 120. 120 
DRTR121, 127,127, 120 
DHTH248, 36,28, 140 
DRTR132, 128. 192, 192 
DnTR.120,120,120,120 
DATA120, 120,232,0 
DflTRfl, 0,0,0 
DHTH0, 0,0,0 
DHTHZ48.36.28, 12 
OflTR4,8,0,126 
DflTR60,60,60,60 
DRTR60, 124,234.0 
DRTM232, 120,128,128 
DRTR127. 123, 120.120 
DRTR126. 60, 60.60 
DRTR60, 189,232,60 
DRTR60,60,60,60 
DRTR60, 68, 126,0 
DRTR232.120. 120. 128 
DRTR120. 120. 120, 120 
DRTR1Z6,60,60,60 
DRTR68, 60,60,60 
DRTR0, 0,129, 192 
DRTR224, 112, 127.0 
DBTR232, 120,120.120 
DRTR120,121,127,121 
DRTH62. 28,36, 112 
TJHTR224, 224,240, 240 



63314 
63313 
63316 
63317 
63316 
63319 
63320 
63321 
i :■ -<2i 
63323 
63324 
6332? 
63326 
63327 
6332? 
63329 
63338 
63331 
63332 
63333 
63334 
63335 
63336 
63337 
63338 
63339 
63340 
63341 
63342 
63343 
63344 
6334? 
63346 
63347 
63348 
63349 
633?0 
63331 
63332 
63333 



DRTR248. 120, 128,68 
DRTR60.60. 126,0 
DRTR240,120,124,124 
DATRU0,110,103.103 
DRTR126,60,60,124 
DRTR232.232. 199.198 
DflTR233,233,253.233 
DR7R233,253,235,233 
DRTR99.97.96.96 
DRTR96, 96, 248,0 
DRTR252,120,126,127 
DRTR127.127.123-121 
DRTR126,60,60,60 
DRTfl 188- 232, 252. 252 
DRTR232, 124.60,60 
DRTR60.60126.0 
DRTR31. 57, 112,240 
DRTR240240.240.240 
DRTR224.36.28.29 
DRTR36-I12, 224,0 
DRTR188, 198,252, 124 
DRTR56, 124,238,0 
DRTR31.56.U2.240 
DRTR248, 126,63.31 
DflTfl248.36,28.12 
DRTR4.0,192.240 
DRTfl3,0129,192 
DRTR224, 1 12 ■ 127.8 
DRTR249. 124,68-60 
DRTR36, 112,224,8 
DRTR127, 119,231.199 
0RTR135, 7, 7.7 
DRTR248,184,156,140 
DRTR132,129.128.123 
DRTR7, 7,7.7 
DRTR7,7,15,0 
DRTR128.128. 128,128 
DRTR128, 128, 192,0 
DRTR124, 56. 112.240 
DRTA240,240,240,240 



63334 
63333 
63336 
63357 
63338 
63339 
63360 
63361 
63362 
63363 
63364 
63363 
63366 
63367 
63360 
63369 
63370 
63371 
63372 
63373 
63374 
63373 
63376 
63377 
63379 
63379 
63390 
63381 
63392 
63393 
63384 
63393 
63386 
63387 
63399 
63399 
63390 
63391 
63392 
63393 



0RTR232, 120,120,124 
DflTR60,62,30.31 

DRTR30. 12. 12,28 
DRTR24, 24.36.36 
DRTR13, 13.7,7 
DRTR3.3,7,0 
DRTR49, 176,240,240 
DRTR224, 224, 240,0 
DRTH30, 12, 12,12 
DRTR12,204,204,204 
DflTR60.61.63.31 
DRTR31, 15,30.0 
DflTfl204, 236, 252,248 
DRTfl248, 36,28,0 
DATH252. 128,68-38 
DRTR30,13,15.7 
DflTH62-28,56,112 
DATA224,192,128,192 
DATfl3,7,14,28 
DRTH36. 112,248,0 
DRTR224, 224, 240.240 
DATR120, 60, 126-0 
DATfl62,28,36,112 
DHTA224, 192. 128. 128 
DATR127, 112.224- 192 
DRTR129, 1,3,7 
DATR254, 124, 120.248 
DRTR240.224.224. 192 
DATA7, 13,31,30 
DATA62, 124,233.0 
DftTfll28, 128,0,6 
DATA12, 24-2400 
DHTA0, 1-7,28 
DATA16.0.0,0 
DATA124,248,120.128 
DflTftl20,120.120.128 
DATA127, 112-224. 192 
DRTA129, 0,3,31 
DATfl60.56.lI2.112 
DATA240,. 240, 255,0 



920 CALL JOYSTd.X.Y):: CALL M0TI0N(«1,- 
V.Ili: CALL INC ll CALL C0L(R)n CALL CO 
INC(ALL.O)ti IF R--1 OR 0--I THEN 930 EL 
SE 920 

?30 O-O :■ R-O ii CALL COINC mi . «3, 1 O. TR 
Wit IF TRV--1 THEN "?40 ELSE 9BO 
940 CALL M0TI0Nmi,0,0,t2, 0,0, #3,0,0) i t 
CALL C0L0R(#3.2) it CALL 30UND ( 100. 1 10, 3) 
i t TRS=TRS+1 
950 IF TRS-S THEN 1000 

960 FOR 1-1 TO 200 ll NEXT I || CALL COL 
0R(«3.1):t RANDOMIZE i: CALL L0CATE(H3.I 
NT (RND*1 16) *34,TRS«50»TRS»TRS«3> 
970 QOTO 890 

980 CALL M0TI0N(#1.0,0,#2,0.0) t ■ FOR 1-2 
TO 16 tl CALL 3CREEN(I)tt CALL COLORmi 
,l-l):t CALL 50UNDI-1, 1*1000, 0)t i NEXT I 
990 VIE-VIE-1 t: CALL LOCATE (#1 . 20, 24. #2 
,192/2,256/2):: GOTO 890 

1000 TRS=0 tt CALL POSITION l#l . JS. AB) I : 
CALL SPRITE(#3,59.2,JS*10.AB) 
1010 SC0RE-SCORE+VIE»2O0 

1020 CALL SOUNDdOO, 110,0)1 I FOR 1-1 TO 
1000 It NEXT I :■ CALL CLEAR ti CALL COL 
QFU.1,1):: CALL DELSPRITE ( ALL ) : I GOTO 1 



63434 

63433 
63436 
63437 
63430 
63439 
63448 
63441 
63442 
63443 
63444 
63443 
63446 
63447 
63448 
63449 
63430 
63431 
63432 
63433 
63434 
63433 
63436 
63437 
63438 
63439 
63460 
63461 
63462 
63463 
63464 
63463 
63466 
63467 
63468 
63469 
63470 
63471 
63472 
63473 



1030 '«——«—-———— 

1040 ! FIN DE PARTIE 
1030 '——————.—- — 

1060 CALL DELSPRITEfALL):: CALL CLEAR :: 

CALL SCREEN(2)tl CALL CHARSET 
1070 GOSUB 1740 
1080 CALL CREATE(97) 
1090 GOSUB 1230 

1100 FOR 1*1 TO 14 It CALL SPR I TE ( #1 . 97. 
1NT(RND«14) +3. I»8+40.24) i i CALL SPRITEm 
I + 14. 97. INT(RND»14)+3. 1*8+40.248) : : NEXT 

1 110 RESTORE 1140 

1120 READ RAN.COL.CRT :: IF CRT-O THEN I 

130 ELSE CALL HCHAR (RAN, COL+3. CRT) : : GOT 



U2i 

1130 GOT! 



1 l 90 



140 DATA 3, 17, 1 13.9. 17. I 13.9. 13. 10B.9, t 
6. 1 13, 10. 17. 1 13.9, 18. 113.9. 19. 109 
1130 DATA 7,17,110,11,17,113,12.17,113.1 
3, 16.113, 13, 17,113,14,15.113. 13, 13.113.1 
4.16,113 

1160 DATA 15,14,113,15.15.113,16,13,113, 
16,14,113, 17,12, 116,17,13. 116, 17, 14, 121 
1170 DATA 13.13.111,14.14,111,15,13.111, 
16, 12,111. 14. IB, 120,15, 17, 120,16. 16,120, 
17. 15, 120 

1180 DATA 16,15.113,13.13,115.14,17.113. 
13,16,113,0,0,0 

1190 CALL C0L0R(11.6, 14) t : CALL COLOR ! 1 2 
,14,l)ii CALL C0LOR(10.6.2) 
1200 FOR 1=1 TO 8 i: CALL COLOR ( I . 16, 1 ) i 



NE«- 



. REP I 



1210 CALL CREATE (97) it CALL KEY ( 1 
:: IF REPOO THEN 1 220 ELSE 1210 
1220 CALL DELSPRITE (ALL) : i CALL CLEAR it 

SCORE-0 :: DIF«O.S t: VIE-5 :: GOTO 120 
1230 DISPLAY AT (4. 5) : "SCORE-" :: DISPLAY 

AT! 4, 11) : SCORE 
1240 IF SCORE 'HIGH THEN HIGH=5C0RE 
1250 DISPLAY AT(5.5) : "HIGH SCORE"" It DI 
SPLAY AT (5, 16) :HIGH 
1260 RETURN 
1270 CALL CLEAR it CALL SCREEN(2)i: CALL 

MAGNIFY!4) 
1280 A«="FBFBFB0ODFDFDFOO" :: FOR I-12B 
TO 131 t: CALL CHAR(I.A»)it NEXT I 
1290 FOR I-l TO 4 t i FOR J-l TO 4 i i CAL 
L SPRITE i#IL+l. 129,7. I »32+20. J*32+40) :: 
TL-IL+I t: NEXT J It NEXT 1 

130O CALL SPRITE(#17, 136.2,36. 128) i i DIS 
PLAY ATI8. 13) : "SADSUN" it CALL SPRIT£(#1 
B.132, 12, 192/2.120) 

1310 FOR 1-5 TO 7 il CALL CDLOR ( I . 1 h -1 > : 
: NEXT I 
1320 CALL CHAR (136, " I919BDFF999B2466" > : t 

CALL CHAR ( 132. "071F3F7F7FFFFFFFFFFFFF7F 
7F3FIF07E0FBFCFEFEFFFFFFFFFFFFFEFEFCF8EO 

1330 CALL M0TI0N(#18,-1.0) 

1340 CALL P0SITI0N(#1B,FD3,J> If IF FOS^ - 

24 THEN 1330 ELSE 1340 

1350 CALL MOTION(#lB,0.0)tt FOR I-l TO 1 

6 it CALL MOTION(#I. 0.5.0) : I NEXT I 

1360 DIF-0.3 :: VIE-5 

1370 CALL P0SITI0N(#16.TM,HJ):: IF THMS 

5 THEN 13B0 ELSE 1370 

13B0 FOR TY-16 TO 1 STEP -I t: CALL DELS 
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c^Q^Q&Q 



63394 
63393 
63396 
63397 

63398 
63399 

63401 
63402 
63403 
63404 
63485 
63406 
63*07 
63408 
63409 
63410 
63411 
63412 
63413 
63414 
63413 
63416 
63417 
63418 
63419 
63420 
63421 
63422 
63423 
63424 
63423 
63426 
63427 
63428 
63429 
63430 
63431 
63432 
63433 



DRTR1.013 
DRTR7. 15.31,62 
DRTA232. 240. 240.224 
DATA192. 129.0.28 
DRTR124. 253. 255.255 
DATR0, 1,3.0 
DRTA36,252,252,252 
DATA224, 192,224.0 
DRTA255, 240, 240,240 
DATR240,254,255.63 
DATR31, 36, 112,240 
DRTR248.254,255,255 
DRTR231-240.240,240 
DRTR240, 240, 63,0 
DRTR126, 126.0,0 
DATR0, 0,0.0 
DRTR31, 120,240,240 
DRTR120.60.3L60 
DATR120.240.240.240 
DATR120.69.31.0 
DRTR224.36.28.28 
DATA60, 124,252,232 
DATA232, 124,60-60 
DRTA36, 112-224,8 
DATA3I-37. 112-240 
DRTA240, 240 -24 1.243 
DRTA192.224.240.I20 
DflTR120.232.232,189 
DRTA247-234, 124,120 
DATA60.30.13.0 
DATR0.24.60.126 
DP,TR126,60,24.0 
DATA0, 0,0.0 
DATA0,0,127,127 
DATA0, 0.0,0 
DRTA0, 0,248,248 
DflTH13.7,7,7 
DATR0,0,7,7 
DRTR224,192,192, 192 
DATR0, 0.192, 192 



DRTR120.120, 120, 120 
DRTR0,0,120,120 
DRTA6, 134,236.60 
DATA24. 0,0,0 
DRTR232, 142,6,30 
DRTR118, 230, 127,0 
DRTR8.0,0,224 
DRTR19Z,192.192,192 
DATA246.232.238.198 
DRTR238, 124,60,0 
DRTR120, 124,224. 192 
DRTR238, 124,60,0 
DRTR0,0,0,14 
DRTR6.6 6.6 
DRTR126, 126,238,198 
DATA236, 124.60.0 
DATR36. 108.206.248 
DATR226. 126.62,0 
DATA0.0.0.24 
DATR60. 116.96,96 
DATA96, 120,96,96 
DATA96, 96,240,0 
DATR120,124,238,198 
DRTR238. 126,62,6 
DATR216,254.238.199 
DATR196. 196, 198.0 
DRTR0,0,0,24 
DRTR24, 0.0.0 
DATR60. 24,24.24 
DflTR24,24,60,0 
DRTA0,0,0,6 
DATA6, 0,0,0 
DATR13,6,6,6 
DHTR6,6,6-6 
DATA204, 216,240, 220 
DRTR206- 206. 206.0 
DATR0. 0,0,36 
DATfl24.24-24.24 
DATR24. 24, 24,24 
DRTR24. 24.60.0 



63474 
63475 
63476 
63477 
63478 
63479 
63480 
63481 
63492 
63493 
63484 
634?? 
63486 
63487 
63489 
63489 
63490 
63491 
63492 
63493 
63494 
63493 
63496 
63497 
63498 
63499 
63300 
63301 
63302 
63303 
63304 
63303 
63306 
63307 
63306 
63309 
63310 
63311 

RERDV. 



DATA236. 234. 214.214 
PRTR214. 214 214,0 
DRTR120, 124,238, 198 



DRTR238,232,252,192 
DRTA192, 192,192. 192 
DRTR224, 0,0,0 
DATR120, 124,238,198 
DRTA238, 126,62.6 
DRTR6.6,6,6 
DRTR14. 8,0,0 
DATA220,246,224,192 
DATA192, 192,224.0 
DATR124. 198.192.124 
DATR6, 198,124,0 
DATA0, 0,0.64 
DRTA192. 192, 192.240 
DATA192, 192.192,194 
DATA230. 126.60,0 
DRTA198.198, 199. 199 
DRTR230, 124,60,0 
DRTA198,198,108,108 
DRTA56.36.16.0 
DRTA198, 198,214,214 
DRTA214, 124-60.0 
DATA199, 236, 120,36 
DRTA124, 206, 134-0 
DRTA198, 198,198.199 
DRTR230, 126,62,6 
DATA234, 134, 12,24 
DRTA48, 98,234,0 
DRTR0, 0,0,0 
DRTA0, 96,96,0 
DRTR0. 0,0,0 
DATR16, 46,48,96 
DRTR253.23I,231,233 
DRTR235, 231-231, 253 



LA CHENILLE 



Encore une fois,dame chenille friande de vitamines a 
besoin de votre aide pour sortir de son labyrinthe. Amis 
des betes a vos joysticks t 

J.R HERPELDINGER. 



BouFftp pes 

90<i£ U 

SAHTf 
0E5 



<lu 29/10/B4 



COPtRICHT HERPELDINCEfi J-Roch 



13 


CLS 


GBB" 






LOCATE (7,10) 


CALL CDLOR("OCHL") 


IS 


PRINT "LLAA CCHHEENNI ILLLLEE" 


1b 


LOCA 


E (8,10) 


CALL COL0R('•0bHL■ , ) 




PRINT "LLAA CCHHEENNI ILLLLEE" 


1H 


LOCATE 113,4) 


CALL COLORC'ONB") 










1384 






20 


LOCATE (21,11 


:CALL COLOR("OBb"> 


?1 


PRINT " FRESSEZ UNE TOUCHE " 


97 


At-KEY» 






REM 

F<LM 






?l 


REDEFINITION DES CARACTERES 










?f. 


C U. L 


CHAR07, 


7A7A7A7A7A7A7A7A7A7A" > 


?? 


CALL 


CHAR (98, 


OOOOFFFFFFFFOOFFOOOO" ) 


?n 


CALL 


CHAR (39, 


00001F3F7F7F787B7A7A" 1 


29 


CALL 


CHAR ( 100 


"OO0OF8FCFEFEOSF27A7A" ) 


■10 


CAl I 


CHAR (101 


■'7A7A7B7B7B7S3C1FO0O0" 1 


31 


CALL 


CHAR (102 


"7A7AFAFAF2E60CF80000" ) 


32 




CHAR* 103 


"0OOOFFFFFFFF00FA7A7A" > 


33 


C AL L 


CHAR (104 


"7A7AFBFBFBFB00FF0000" > 


34 


CM.) 


CHAR (1 OS 


-7A7AFAFAFAFA02FA7A7A" ) 


;if. 


CALL 


CHAR (106 


"7A7A7B7B7B7B7B7B7A7A" ) 


36 


CALL 


CHAR (107 


"0000183C7E7A7A7A7A7A" ) 


3 7 


CALL 


CHARdOB 


"7A7A7A7A7A7E3C180000" ) 






CHAR (109 


"00001 F3F7F7F3Q1F0OO0") 


33 


CAl [ 


CHARM 10 


"OO0OF8FCFEFEO6FS00O0" ) 


to 


CM ' 


CHARdll 


"0000183C7E7E3C1BOOOO" > 


41 


TALI 


CHARM12 


"00001E1A1E1C3A7AOOOO") 


4? 


CM i 


CHARM 14 


"7EC399A3A1A1A333C37E" ) 


4 1 


CALL 


CHARM 13 


"3C3C6&DBBDBDDe663C3C"> 




CM l 


CHAR (121 


"00187ECFFF3FFF7E1800") 


4* 


CALL 


CHAR< 119 


"001B7EF3FFFCFF7E1800-) 


46 


C al l 


CHARM 11 


"00002C6E7AFBFF7E7E3C") 


48 

43 


CALL 


CHAR (120 


"3C7E7EFFDF3E76340000" ) 


i 


INITIALISATIONS 


SO 








C-13 


t 0*123 




*.,' 


B-130iH-128 




33 


DIM 


(BOO) 






DIH 


(500) 




sa 


DIM 


A14(20,2 


) 


5F 




A-1 






S-3 






sa 


H"1 






S3 


LS-1 


HS-3OO0O 




1.0 
61 








I 


AFFICHAGE SERPENT 











33 IF TA1SO 

94 IF TA1KX0.1 ,Y0)»" ' 

■p-THEN A-B:COTO 77 

95 IF TA1»(X0.1,YO>-"q' , THEN 111 

36 IF TA1»(X0,Y0t 1 >-" "OR TA1«(X0,Y0 
"p"THEN A-G:COTO 77 

37 IF TA1«(X0,Y0*1)""q"THEN 111 
9B IF TA1«<XO,Y0-1>«" "OR TA14(X0,Y0 

•■p"THEN A-C:COT0 77 
33 IF TA1«<X0,YO-1>""q"TH£N 111 
100 00-DD.1 :FF-FF.1 




102 CALL C0LOR("1bB"):LOCATE (X<OD 
Y(OD-I).IB) :PRINT "q" 

103 TA1«(X(0D) ,Y<DO> l="q" 

104 LOCATE (X(0D)4l ,Y(DD).1S) 

105 PRINT CHRXA-10) 
105 CALL C0LOR<"08B"):LOCATE (X(FF 



107 TA1»<XIFF-1 >,Y(FF-1 >)-" " 

108 NUL-HUL-10:CALL BONUS(MUL 

109 IF HUL(-0 THEN 111 

110 GOTO 75 



114 CALL CDL0R<"08B" 
113 LOCATE <X(I1.1,Y 
11G TAIXX(I) ,Y(I)>- 
117 NEXT I 
A 18 S-S-1 :CALL VIE(S 

119 IF S'-O THEN 191 

120 GOTO 63 

121 1 

122 I RENCONTRE JH 
123 
124 TA1«(X1,Y1)-" " 

123 FF-FF-LSiPT-PT.10 

126 JR-JR.1 

127 CALL SCQREiFTi 

128 IF JR-NN THEN TA- T A . 1 ; GOTO 
123 GOTO 100 



63 CLS 'GE;& ' :GOSUE; 153:CQTa 148 

64 JR-0;ON T GOSUB 226,258,283,312 

65 X1=13:MUL-3000: Y1=13:CALL TA£L(TA):CA 
LL WIE(S>iCALL BONLtS(MUL) 

66 CALL COLQRCIRB") 

67 FOR F-1 TO 3 

68 X(F.100)"13iY(F.100)»F.B 

69 LOCATE !X<F.100>«1 , Y(F» 100) . 18) i IF F* 
5 THEN PRINT CHR4(D-10) ELSE PRINT "q" 

70 NEXT F 

71 D0-105:FF"101 : A-DiX0-X1 : Y0-Y1 



73 I JEU 








75 C'A 




76 CALL K£Y1!F,E>:IF F)-12B AND F 




THEN A-F 




77 IF ABSIC-AI-2 THEN A-C 








79 Y1-Y1-(A-0).(A-C> 




80 IF TA1XX1 ,Y1 )-" "THEN 100 




B1 IF TA14(X1,Y1)»"p"THEN 121 




82 IF TAIXXt ,Y1)-"q"THEN 111 




B3 X1-X0iY1"Y0 




84 ON (C-127)G0TO 83, B7, 69, 31 




85 IF TA1KX0-1 ,Y0>-" "OR TA1XX0 


1,Y0) 


"p"THEN A-C:GOT0 77 




B6 GOTO 36 




87 IF TA14(X0,T0«1)»" "OR TA14(X0 


Y0.1) 


"P'THEN A-CjGQTO 77 




88 GOTO 32 




89 IF TA1»(X0.1,Y0>-" "OR TA1»(X0 


1 ,Y0) 


"p"THEN A-CiGOTO 77 




90 GOTO 36 




31 IF TA1»(X0,YO-1)«=" "OR IfiiK.'O 


YO-1) 


'•p"THEN A"C:GOTO 77 




32 IF TA1t(X0-1,Y0)-" "OR TA1»(X0 


1 ,Y0) 


JMB& MM 


toe 


&: 



131 


I PLUS OE BONDS 


13? 
1 33 






COTO 111 




1 i* 






, 


BONUS 


136 










137 


LOCATE (X1.1 
) iPRINT " " 


Y1.18):CALL C0LOR("OBB 


1fl| 


FOR I-FF TO OD 


ill 


LOCATE (X(I)t 
NEXT I 


1,Y(I).18> tPRINT •' '■: 


140 


CH-((HUL/100 


-INT(NUL/100))»100 




IF CH-0 THEN 


145 


142 


FOR I-CH TO 1 


STEP -10 


143 


CALL BONUS( I 
CALL SCORE (P 
NEXT I 


(HUL-CH) ):PT"PTt (10»M) 


un 


FOR I-(HUL-CI 


)T0 STEP -100 


Ufi 


CALL BONLtS( t 
RE ( PT ) 


:PT«PT»<100»H> :CALL SC 


147 


NEXT I 




14H 


EFF4-RPT4C' 
FOR 1-2 TO 2 


,21)lCALL COLORC'OMH") 


Irtfl 


LOCATE (1,19 


:PRINT EFF« 


im 


NEXT I 




1S2 
1S3 
1S4 


GOTO 64 




. 


ECRAN 


1 sa 

156 






FONt-RPT«(" 


,16):CALL COLORC-OBM") 


!57 


FOR 1-2 TO 2 




ISA 


LOCATE (1,2) 


PRINT F0N4 


189 


NEXT I 




11.0 


CALL COLORC 


Bb") 


t£1 


LOCATE (13,3 


:PRINT "r" 


182 


CALL COLORC 


Bb") 


tea 


LOCATE (13,4 


:PRINT •• HER" 


164 


LOCATE (20,3 


: PRINT - 


11.', 


CALL COLOR ("ON") 


166 


LOCATE (19, B 


;PRINT "PELO" 




LOCATE (20,8 


tPRINT "1984" 


tea 


CALL COLOR ("OBR") 


16S 


LOCATE (19,1 


liPRINT "INGER" 


170 


LOCATE (20,12) iPRINT " 


171 


LOCATE (4,3) 


CALL COLORC'OCHH") 


1 ru 


PRINT "SCORE 




173 


LOCATE (3,3) 


CALL COLORC'CbHH") 



NEXT I 

N-1 TO NN 
1 READ X1 ,T1 
LOCATE (X1.1,Y1t1B) ! CALL COL0R(JR») 

225 PRINT CHRX112) 

226 NEXT N 

227 RETURN 



231 DATA ' 

232 DATA ' 

233 DATA ' 

234 DATA 

235 DATA 



DATA ■ 
DATA ' 
DATA ' 



cbbbbbbbbbbbbbbbbbbbd" 



•f abbbn a" 



> abbbbbbd cbbbbbbn 



;.4B i 

J43 I 

250 I 



-■t, t,t,r. Lt.r 



•bbbbbbnpa" 



317 


DAT* 


"a «bn abn 


■bn abn a 


31H 


M 1 1 




318 


OAT A 


"a k ntn abbbn abn k a 


|» 


DAT ft 






321 


DO I A 




bbbn nbf a 


:);■;■ 


DATA 






328 


fiATA 


"Jbbbbbbbbn 


•bbbbbbbbi 


324 


DATA 






128 


DATA 






326 


DATA 






377 


DATA 






li-JB 


DATA 






j;'3 


DATA 






3J0 


DATA 


"apl abbnpl 


If.i-t.t.n I pa 


331 


[..A T A 


"• 


■ 


33 k' 


MTA 


"a abbbbbbbbbbbbbbbn » 


338 


OATa 






j:j* 


DATA 


"abbbbbbbbbbbbbbbbbbbT 


-n*, 


DATA 


2,2,2,20,4,5,4,10,4,12 




t .£. , 


6 




VfF. 


LIAIA 


B,8,B,14,10 


4,10,1B,11 


\JA/ 


DATA 

20 


14,6,14,16, 


6,2,16^9, 1 


330 


T-1:NN-20:REST0RE 31S:C0UL4 



333 GOTO 213 



18 



SOUS -PROGRAMMES 



,9,11 



1,13,7,13,13, 16,1 
£U,is,a, i/,ib,18,2,1B,20 
T-2:NN-17!REST0RE 231 : C0UL4-" II 

JR4--1Y8F" 

IF TA<»1 THEN 257 

H-M.1 :LS-LS.1 
S-S.1iCALL VIE(S) 
GOTO 213 

TABLEAU 2 



TI99 BASIC 
ETENDU 

Suite de la page 25 




PRITE(RTY):: NEXT TY 

1390 CALL KEYIl.K.Slli IF SOD THEN 1400 

ELSE 1390 
1400 CALL CLEAR n CALL DEL5PR iTE (ALL >l J 

CALL CHARSET :: GOTO 120 

1420 ' CARACTERES TABLEAU1 

1440 CALL CHARI32. "0000000000000000" 1 
1450 CALL CHAR(33. •■OOOOOOOOOFOFOFOF") 
1460 CALL CHARIfcr. •003C6EEB9B763C00") 
1470 CALL CHAR (64. " 1919E5E7E 1382466" J 
1490 CALL CHAR(34, " 1BOB1BOS0B14 I41C" ) 
1490 CALL CHAR(33, "54FE54FE54FE5400") 
1500 CALL CHARMO, "00000000060FOF06") 
1510 FOR 1=1 TO 250 :l NEXT I :: CALL DE 
LSF'RITE(ALL) : : CALL MAGNIFY ( 1 >: t RETURN 



PRINT "SCORE:" 
LL SCORE (0) 

. LOCATE (8,5):CALL COLOR 
' PRINT ■fcONUS:" 

LOCATE (3,5):CALL COLORC'ObHH 

PRINT "BONUSi" 
' CALL eONUS<3000) 

LOCATE (12,4):CAL.L COLORC'OCN 



1530 CALL CHAR(36,"OOO000OO4O42CBDB'l 

1360 CALL CHAR(37. "C5B0ABAA2236B695") 

1570 CALL CHAR(38. •C5CDCDDB9A9B1302") 

1580 FOR 1-3 TO 13 STEP 10 

1590 CALL HCHARI I ♦1,3.36.26) : .- CALL HCHA 

R(I*-2,3,37,26>)| CALL MCHAR ( 1 *3. 3, 38. 26) 

it NEXT I 

1600 FOR B-B TO 18 STEP 10 

16(0 CALL HCMAR(B*1,7.36.26) I I CALL HCHA 

FIE--:. 7. 77.26M : CALL HCHA«(B*3,7,38,261 

j: NEXT & 

1620 CALL CHARO40, " I 03O3B1C1C3B1B1O" ) ; ; 

CALL CHARUAl , » I 03B3434 7C54547C" > 
1630 CALL VCHARd. 3,140. 22) ■ I CALL VCHAR 
<1,32, 140.24) : : CALL .HCHAR ( 1 . 3. 140.30) 
1640 GOTO 420 

1650 •«-«-««.-=..—••»— 
1660 ■ CARACTERES TABLEAU 3 

1670 ;■■■ —— -■■■■■■■■■■ — 

16B0 CALL CHAR(32."FFFFFFFFFFFFFFFF' i 
1690 CALL CHAR! 100. '3C7EDBFFFFC37E3C-) 
1700 CALL CHARC34.-FFFFFFFFF0F0F0FO") 
1710 CALL CHAR(96."FFFFFFFFFFFFFFFF") 
1720 CALL CHAR(5B.-7EC3B1B1D5ABD5AB") 
1730 SOTO 600 

1740 CALL CHAR(U3. "FFFFFFFRFFFFFFFF ) 
1730 CALL CMARt 1 16. "OOOOOOOOOOOOOOOO" ) 
1760 CALL CHAR(!15."FFFEFCFBF0COC0BO"> 



I SUB SCORE (SO 

. CALL COLORCOCMH") 

I LOCATE (4,10):PRINT USINC'DRnsnUII" 



I SUBEND 

I SUB BONUS(BS) 
i C1*>"0CMH" 
C24-"0bNH" 

IF BS(-300 THEN C1 •-"ORNH" :C2»-" 
ORNH" 
I CALL C0L0R(C1«) rLOCATE (B,11):PRINT 

USINC-'SBSB" ,BS 
I CALL C0LOR<C2S) lLOCATE (3,11):PRINT 

USINC'DDRD" ,6S 
; SUBENO 

) VIE(VI) 
' LOCATE (14,12)iCALL COLORC'ObN") 

:nt usiNC-'sna- 1 ,oi 



1770 CALL CHARdll. "0103070F1F3F7FFF") 

17B0 CALL CHAR( 120. *FFFEFCF8F0E0C080») 

1790 CALL CHAR! 121. ■■FEFEFEFEFEFEFEFE"! 

1800 CALL CHAR(110,"193C7E7E3C1B3C7E") 

1B10 CALL CHAR(109. "00BCDEFFFFDE8C00") 

1B20 CALL CHARdOS, "0O317BFFFF7B310O") 

1B30 RETURN 

1840 ' ■■——■■■■■■■■■■■■■■— 

1850 ' CARACTERE TABLEAU 4 

I860 ' ■■■■■■■■■■■■■■■■■■■■) 

1870 CALL CHAR(32. "0554555 105A4ASA I ") 

1SB0 CALL CHARI96. •2O50O243AOOO040A") 

1B90 CALL CHARd04, "FOFOFOFOFOFOFOFO" > 

1900 CALL CHAR! 105. "FFFFFFFFOOOOOOOO" ) 

1910 CALL CHAR( 106. "FFFFFFFFFOFOFOFO") 

1920 CALL CHAR<107, "FOFOFOFOOOOOOOOO") 

1930 CALL CHAR138. " 187CEEC7B3FF7E 1C" > 

1940 CALL CMAR(59. "FFC3A59999A5C3FF" I 

1950 CALL CHAR (100. "70A8F87C3E7FFFDD") 

1960 RETURN 

197C SUB BOBO(F) 

1980 CALL POS1TION(»2, I,J>: i IF J >200 TH 

EN CALL L0CATEO2. 1*16, 1) : I CALL MOTION! 

»2,<:>. INT (RND»23)+10) 

1990 IF IM60 THEN CALL LOCATE (»2. 1 . 1 ) 

2000 IF «J:250 THEN J=230 

2010 CALL HCHAR(INT( I/B)+l. INT ( J /B) ♦! . 33 

> : : SUBCND 



IF X 190 TH 



2030 



2020 SUB COL(U) 

2030 CALL POSITIONAL 

EN 2050 ELSE CALL BCHARdNTC 

/8)»1.H):: IF H=*32 THEN SUBEXI 

2O40 U»-l : J SUBEXIT 

2050 CALL LOCATE (*1, 160. Y) i .- SOTO ; 

2060 SUBEND 

2070 SUB INC 

2080 CALL POSITION(B2.I1.J1) (: CALL POSI 

TIONlal. I2.J2) :i M-1J2-JU/5 II T" I IS 

) /3 ii CALL M0TIONIt2, T.M)i i SUBEND 

2090 SUB CREATE (CAR) 

2100 DIM 0(8). G(8) ,k (B) ,S(B) 

21 10 FDR 1 = 1 TD 8 

2120 0(I)»INT(RND«9) 

2130 B(I)>0(I)«10" (1-1) 

2140 TOT"TOT*G( 1) 

2130 NEXT I 

2160 A»=STR«ITOT) 

2170 FOR E-l TO 8 

2180 I (E)-INT(RND»9) 

2170 SIE)»C(EH10'(E-1I 

2200 TAL="TAL-S(E) 

2210 NEXT E 

2220 B*=STR«(TAL) 

2230 ON ERROR 21 10 

2240 CALL CHAR (CAR. A«fcB» ) 

2250 SUBEND 



DOMINOS 



Dominez votre ORIC aux dominos sans vous miner 
(bof..). 



ORIC1/ATMOS 



Francois HORNY 



C SC^- 



Mode d emploi 

Yen a pas debrouillez-vous 



3 REM ** DOMINO +4 

4 REM . 

5 REM FRANCOIS HORNY 

6 REM 6 RUE 1>E LABAROCHE 

7 REM 68200 MULHUUsE 

8 REM 

18 CLS'PRINT PING 

12 PRINTCHR«'.4),CHk»'.z7.''J 

INSTRUCTIONS". CHR»14) PRINT PR 
INT 

14 PRINT"Ce Jeu d« dowinos se jou 
• s«ul contre l'ordin#t-ur." PRINT 

18 PRINT "Pour jouer vol dominos i 
I sufit d'»rttr«r I as coordon 
n*ss. " 

19 PRINT PRINF'EXEMPLE "PRINT 

20 PRINT" - 3 ou A3 pour It lsre 
li.ns" PRINT 

22 PRINT" - B5 Pour U 2em« li»n 
e." PRINT 

24 PRINT"Sl vous n« Pouvcz pjs jo 
u-r -PPuvez sur 'V Pour Pioch»r 

ou Pour"* 

26 PRINT" Passtr votre tour <si 

tous l«s dominos ont ttt P lochs 
S)."' PRINT 

28 PRlNT"Si vous n« voultz Plus J 
ouer. sPPuusz sur 'F'." 

35 PRINT PRINTS PR I NT" APPUYEZ SUR 

'SPACE' POUR COMMENCER.", 

37 IF KEY*-"" THEN E-RNDl 1 > ' GOTO 
37 

38 CLS G0SO6 25B8 RESTORE PAPER 
'INK 7 

48 DIM D»<28;>.D128>.M<28>,0<24>,J 
C24> 

45 FOR -R-l TO 63 'READ A«'HEXT GOS 
UB 2668 

58 HIRES PAPER 4 • GOSUB 1288 J-8 
-6 Tl-6 Vl-0 D0=16 R1=0 

55 CURSET 155,55,0 CHHR 49,6, 1-CU 
RSET 155,80,0'CHAR 50,8.1 

56 CURSET163. 83.1 DRAW 28,0, 1'UR 
AH-4,-4,1 'CURMOV 0.8.1 DRAW 4,-4.1 

37 CURSET 152,58, 1 'DRAW -20.0. ID 

kAW 4,-4, 1 CURMOV 0,8,1 'DRAW-4,-4, 

1 

61 REM 9 DOMINOS POUR ORIC 
65 FOR R-l TO 6'0<R)"M'.R> 
78 CURSET R«27-10,l,0 GUSUB 1388 
98 J(R)-M<R+8> 
100 CURSET R*27-18. 165.8 GOSUB 13 

88 
118 REM 8 DOMINOS POUR LE JOUEUR 
130 FOR I-1T02 CHAR ASCC M10SC Dst J 

lR->).I>). 0.1 CURMOV 9,0,3 NEXT 
140 NEXTAS="123456?B"CURSET 24, 

156,0 

142 FOR R-l TOO CHAR ASH MIL'S' H*. k 
)),e.MF R-8 THEN 145 

143 CURMOV 2<'.0.3 NEXT 

145 A»»"AB"'F0R R-1T02 CURsEI 10, 1 
46-KR*20),0 CAAR HSC' Mil,*' A*,R )),0 
. 1 ■ NFXT 

150 X-l X1-129X2-65 X3-167 X4-65 

PI — 19P2-19 

160 FOR R-l TO 8 

165 REM RECHERCHE DU > DOUBLE- 

170 IF 0CR)-DD<X> THEN GUTU 210 

188 NEXT CCS. PRINT PRINT" AVEZ-V 
OUS LE D0U6LE"7-X"<0'N> ?", PING G 
ET US 

198 IF G«-"0" THEN CO-1 GOTO 300 

195 IF GSO"N" THEN GET G« GOTO 1 
90 

208 X-X-H IF X<8 THEN 168 ECSE RU 
N 48 

284 NEXT 

218 CCS PRINT PRINT" JE 

COMMENCE I " . CO-2 

215 CURSET R*27-ll.l,0 

220 FOR I-1T012 DRAW 22.0.8 CURMO 
V -22, 1,3. NEXT 

225 CURSET 148,65,0: GOSUB 1380 

240 FOR I-1T02'CHAR HSC. M I D* U* 1 , U 
<R)>.I)>,0,1'CURMOV 9,8,3 NEXT 

250 AS-LEFTX D«< G«. R i> , 1 '■ 6S=H* 

268 0CR1-8 

295 REM CH01X DU JOUEUR 

388 CLS PRINT" A VOUS DE 

JOUEZ I" 

385 PRINT PRINT" GUEL DOMINO 
JOUEZ-VOUS 7" J 

358 GET us 

353 IF a»="P" THEN 1750 

354 IF G--"F" THEN TEX1 PHPER 7 I 
NK END 

355 IF 0«-"A"THEN C-l'GOTG 378 
360 IF Q««"B"THEN C-Z GOTO 370 

365 G-VAUGS.' IF G<.9 AND w.>0 THEN 
C-l'GOTO 372 

366 GOTO 350 

378 PRINTG-. GET US 

372 CC-VALCOO'Cl-CC CLS 

375 IF CC»8 OR Cc8 THEN 308 




388 IF C-2 THEN CC-CC-M3 

385 IF J<CC->-8 THEN 308 

390 IF C0O1 THEN GOSUB 1310 

392 IF ER-1 THEN ER-0 GUfO 308 

395 IF CO-1 AND J' CC X >DD. X J IHEN 

388 

418 CURSET 01*27-11, l45-nc*20>,0' 
GOSUB 988 

585 IF CO-1 THEH HS-LEF l«( s«. 1 ) B 
S-RIGHTS<S«,I)C0=2 

518 J<CC)-6'F0R 1 = 1 TO J'lF -k I K 
>8 THEN GOSUB 2688 OOTO530 

515 NEXT 

528 FOR R-l TO 5PIN0 WH1I 48 HEX 
T'PING 

522 CLS'PRINT'PRINI" BRhVO 

[ VOUS AVEZ GAGNE." IF OP IHEN 1 
988 

523 FOR F-1T0 IF 01 F '=0 THEN 52 
6 

524 IF Ft9 THEN CURSEI F*2?-8,J,0 
ELSE CURSET (F-8 X27-8, 17,8 

525 FOR I=*1T02 CHHR HiH MID«t !'»« u 
i.F >>. I )>,8, 1. CURMOV y,0.3 NEXI 

526 NEXT GOTO 1980 
528 REM CHUIX D'ORIC 

538 CLSPRINT PRINT" IE p 

EFLECHIS...", 

531 GOSUB 1080 IF Y=l IHEN Y»0>KU 
=0 ■ GOTO 700 

532 FOR R=l TO 

535 N»»LEF I«< D*>. CKR)>. 1 > 
548 M««RIGHT«(D«^01R)>,1.> 
558 IF N>"A« OR NS=BS UK M*=A* UR 
M«"B» THEN Y"=l GOSUB 1335 KO=0 
560 IF Y»l THEN Y"0 GOTO 780 
578 NEXT 

577 REM PIOCHE D'ORIC 
588 CLS' IF D0<28 THEN PRINT PRINT 
JE PIOCHE... !"GOTO 5 

583 IF KO-1 THEN 1918 

585 CLSPRINTPRINT" JE N 
E PEUX PAS JOUER." ZAP UA1HO0 hu= 
1CLS 

586 GOTO 300 

598 ZAP'DO-DOfl'FOR R«1T0 8 

595 IF 0<RK >8 THEN 610 

688 0< R )-M< DO >' CURSET R*27-I8.1,0 

GOSUB 1388 GOTO 538 

618 NEXT 

628 0-0*1 1 IF 0-17 THEN O-lb 

623 FOR R-9 TO 16 

638 IF CKR)oe THEN 658 

648 0< R)-M< DO > CURSET tR-8,*2,-ll> 
.15,0 GOSUB 1300 GOTO 330 

658 NEXT 'DO-DO-I 'GOTO 565 

788 IF R<9 THEN CURSET R*27-U,l, 
8 ELSE CURSET <R-8)*27-ll , 15,0 

718 GOSUB 988 

788 0<R)-8F0R 1-1 TO OIF «!)() 
8 THEN 388 

798 NEXT 

800 FOR R-l TO 5 ZAP NEX I 

885 CLS'PRINT PRINT" VIVE M 
01 ! J'AI GAGNE." GOTO 1980 

900 REM DESSINE LES DOMINOS JOUES 

905 FOR 1-1 TO 12'DRRN 22,8,0'CUR 
MOV -22,1,3 NEXT 

908 IF CO-1 THEN CURSET 148,65.0' 
GOSUB 1300 S»-D»( J< CC ) ) ' GOTO 965 

918 IF XI— 4 AND X2-65 AND X-l 1H 
EN GOSUB 1658 GOTO 930 

915 IF X3-224 AND X4-65 AND X-2 T 
HEN GOSUB 1698 GOTO 938 

928 IF X3--4 AND X4-188 AND X-2 T 
HEN GOSUB 1868 GOTO 938 

925 IF X-l THEN CURSET X1.X2.8 EL 
SE CURSET X3.X4.0 

938 IF X-1THEN A«-LEFT»(S», 1 I ELS 
E B«=RIGHT«(S»,1 I 

935 1FX-1THENX1-X1+P1 G0TU948 

936 X3-X3*P2 

940 IF P4-1 THEN P4-0: RETURN 

950 GOSUB 1300 KO-0 

955 IF Tl-1 AND X-l THEN E*=RIGHT 
«i S« . 1 >*LEFT«( S» , I ) • S«»E« 

960 IF Rl-1 AND X-2 THEN E»-RIGHT 
$< S». 1 '*LEFTS< S*. 1 ■> S«-E» 

965 FOR I-1T02 CHAR HSC< MIDKS». 1 
■ 0.1 CURMOV 9,0.3 HEX 1 RETURN 

980 F'jp I=>1T02 CHAR ASC(MID»'. D«' 
' R ) I. I > ?, . 1 CURMOV 9,8.3 NEXT PET 
URN 

1000 REM ANALYSE D ORIC 

1CW3 IK PJ=8 THEH RETURN ELSE PRI 
NT , 

1605 FOR R-l TO NS-LEFTS. DS' Ot R 

'., 1 ' MS-RIGHTS' DS' OX R . ,. 1 . 

1010 IF NS-. -AS AND MS- ,bS AND MS-. 

MS AND MS' BS IHEN 102V" 

10^0 IF. HS-. >AS AMI' MS BS ' HHL' 'N 
i BS AND Ms HS , THEN 102.' 
1821 F'JK 1 = 1 10 PJ 
1022 IF NS=HS Hill' PJS' 1 ,-MS IHkN 



SB MFT7FNT Auy d'FoX Of 
MoT$, C?u'Kr-Cfc- Qu% Vfl 
tfePESTEP Mi? r- 



1-loTS 



SS=MS+NS X=l i'=l RETURN 

1023 IF MS=BS AND PJS' 1 ,=NS I HEM 
iS=MS+N« X-2 Y=l PEIURN 

1024 IF H»=BS HND PJS' I ,=HS THEN 
3»-N»*M»'X-2'Y-l RETURN 

1825 IF M«=MS AND PJS' I ,=NS IHfcH 
S«=N$*M» X=l Y=l PE1LIPN 

1826 NEXT 

1827 NEXT R 

1829 FOR R=l 10 o NS'LEFTS' D4' y R 
>),l)'M«-RIGHTfcD«',O.Ri;, 1) 

1038 IF NSOAS THEN 1040 

1033 FOR 1-1 TO PJ 

1035 IF MS=PJS< I , IHEN '5»=MS+NS X 
=1 Y=l RETURN 

1038 NEXT 

1048 IF NSv.'BS IHEN IB'jO 

1843 FOR 1=1 TO PJ 

1045 IF MS=PJ«i I . THEN i«=H*+H» X 
■2 Y-l RETURN 

1048 NEXT 

1850 IF M«OA« THEN low 

1053 FOR 1=1 TO PJ 

1055 IF N»=PJ«< I I IHEN • S S=NS+MS X 
-1 Y-l RETURN 

1058 NEXT 

1060 IF MS<.'6» THEN 1100 

1863 FOR 1-1 TO PJ 

1065 IF Ht-PJW I , IHEN SS=MS*NS X 
-2 Y-l RETURN 

1868 NEXT 

1100 NEXT R RETURN 

1200 REM MELANGE LES DOMINOS 

1285 FOR R-l TO 28 D' R >=1 NEXT 

1218 FOR R-l TO 24 

1228 XS-RNOv 1 )*28»1 IF LX K. <=1 1H 
EN M(R>XX D<X^>-8 ELSE 1220 

1230 NEXTX-24 

1240 FOR R-l TO 28 

1258 IF D(R)-1 THEN X-X»l M< X '=k 
D( R >-8 

1268 NEXT RETURN 

1388 DRAM 16,0,1 DRAW 8,11,1 DRAW 
-IB-B.J'DRHW 6, -11,1 CURMOV y.0,3 
DRAU0.10, 1 

1383 CURMOV -7.-8,3 RETURN 

1386 REM PLACE CES DOMINOS JOUEs 

1318 N»-LEFT»<D«(J<CC)).l > 

1328 M»-RIGHT»(D«<J(CC)),l; 

1338 IF N*OA« AND NS ,BS AND MS. 
>H» AND M«OB« THEN EXPLODE ER-1 R 
ETURN 

1333 IF(N»-Mt HND AS-B« I THEN S»= 
N«*M« X-2 ' RETURN 

1348 IF A*-6S AND MS=A« TAEN SS-M 
»»NS ' X-2 ' RETURN 

1345 IF A*-B* AND N*»B« THEN S«=N 
«♦ M» ■ X-2 ' RETURN 

1358 IF N«-MS HND N»=B» IHEN S»-N 
•♦M» X-2 RETURN 

1333 IF NS-HS AND HS=MS THEN S*-N 
»+M»' X-l RETURN 

1368 IF . AS-HS OR A«-M*;> HND <B»- 
N« OR B*-n*) THEN GOTO 1600 

1365 IF M»-B» THEN S»-M»*N* X-2 R 
ETURN 

1378 IF BS-MS THEN SS=NS»MS X=2 ' R 
ETURN 

1375 IF N»=A» THEN S«=MS*NS X=l k 
ETURN 

1380 IF HS=MS IHEN '5»=NS+MS;.= 1 R 
ETURN 

1600 IF Y=l THEN 1 3t>5 

1605 CCSPING pklNI PP1NI" UU PLA 
CEZ-VOUS CE DOMINO ' . 1- 2 , • "GET 
i.js CLS 

1610 IF u»= "1" AND MS-AS THEN ;%- 
N»*MS X-l RETURN 

1615 IF 0S="1" IHEN SS=M*+NS X=l 
RETURN 

1620 IF US="2" AND NS=BS THEN SS= 
NS*M» X=2 RETURN 

1625 IF 0»="2" THEN S»=M**N$ X=2 
RETURN 

1638 GOTO 1685 

1645 REM BIFURUOE SI ON ESI AU 

1646 REM BORD DE LECRAN 
1658 CURSET 15.42.1 

1655 DRAW 0,22.1 DRHU 9,0,1 DRAW 
0,-22,1 DRAW -h.8,1 CURMOV 0, 11, j 

1668 DRAW 9,0.1 CURMOV -7,-9.3 

1678 FOR I = 1T02 CHAR HSC. Mil* SS . 
I >). 8.1 'CURMOV 0.11,3 NEXT 

1688 Xl=-4 X2=36 Pl=19 F4=l 11=1 
RETURN 

1690 CURSET 214.77, 1 

1700 DRAW 0.22,1 DRAW 9,0-1 DRAW 
0,-22.1 DRAW -9.0.1 CURMOV 0, 11,3 

1710 DRAW 9,0,1 CURMOV -7,-9.) 

1720 FOR I-1T02 CHAR ASCdllDStSS. 
I >>.<>. \ CURMOV 0.11.3 NEXT 

1730 X3-224 X4=186'P2=-19 P4=l PI 
=1 RETURN 

1750 REM PIOCHE DU JOUEUR 

1756 IF D0=28 THEN CLS'PRINT 'PRIN 



T" IL N'Y A PLUS DE DOMINO." 

WAIT 108 CLS 

1757 IF 00-28 AND kU-1 THEH GOlo 
1918 ELSE IF D0=26 THEN KO-1'GOTO 
538 

1768 DO-DOHFOR R=1T08 

1765 IF J<RX>0 IHEN 1785 

1770 Jk R >-Mv DU ) CURSET R*2.'-10. 16 
3. 8 GOSUB 1300 

1773 FOR I-1T02CHAR ASO MIDS' DSl 
MCDO>>,I >>.0, 1 CURMOV 9,8,3 NEXT G 
OTO 388 

1785 NEXT 

1790 J-J*l IF J-17 THEN J-16 

1800 FOR R-9 TO 16 

1B18 IF JCRK>0 THEN 1840 

1820 J<R>-MC DO) 'CURSET <R-8>*27"1 
0.165.0 GOSUB 1300 

1830 FOR I-1T02 CHHR ASCi M I D»< D*'. 
M< DO)). I) 1.8,1 CURMOV 9,0,3 NEXT G 
OTO 380 

1640 NEXT DO-DO-1 GOTO 530 

1860 CURSET 15,112,1 

1878 DRAW 8,22,1 DRHW 9,8,1 DRAW 
8,-22,1 DRAW -9,8,1 CURMOV 0,11.3 

1880 DRAW 9,0-1 CURMOV -7,-9,3 

1898 FOR I-1T02CHHR ASU M I DS'. S» , 
1)).8,1 CURMOV 8, 11, 3 'NEXT 

1988 X3— 4 X4-135 P2-19 P4-1 Rl-0 
' RETURN 

1905 REM COMPTE LES P01N1S DES 

1906 REM DOMINOS RESTANTS 

1910 X-8'F-l'CLS PRINT PRINT" 
JE FAIS LES COMPTES I" 

1911 IF O(F>=0 THEN 1920 

1912 IF F',9 IHEN CURSE I F*27-8, 3, 
ELSE CURiET <F-8)*2?-8. 17, U . 

1914 FOR I-1T02 CHAP HSC MIDS'. DS' 
0< F ) ,), I ) ), 0, 1 ' CURMUV 9,0,3 NEX1 

1916 NS=CEFTHD»i.O<.F),',l.' GOSUB 1 
970 N»=RIGHTHD*<0<P )).l ) GOSUB 19 
78 

1920 F-Ffl IF F«0+I THEN 1922 ECS 
E 1911 

1922 OP-XX=0 

1925 FOR R-l TO J IF J' R )=0 THEN 1 
948 

1930 N«=LEFT*t D«' JXR ) ), 1 ) GOsUB 1 
970 N»=RIGHT*'D*' J'RO.l > GOSUB 19 
78 

1940 NEXT 

1945 IF X<OP THEN 520 

1950 IF X>OP THEN 880 

1960 CLS'PRINT PRINT" ILN'Y 

A PAS DE VAINUUEUR." GUIU 1980 

1970 IF NS»"j" THEN X=X»t> 

1971 IF N«="b" THEN X=X*5 

1972 IF N»="c" THEN X-X»4 

1973 IF N«="d" THEN X»X»3 

1974 IF N«="e" IHEN X=X+£ 

1975 IF N«-"f" THEN X=X»I 

1976 RETURN 

1986 A=PEEK<520/ IF A=S6THEN X-RN 

DtDGOTO 1980 
1985 IF A-153 THEH TEXT INK u PHP 

ER 7. END 
1998 RUN 48 

2088 REM TA6LEAU DES DOMINOS GUI 
2881 REM 6L0GUENT LE JOUEUR 
2884 CLS 

2605 PJ=0FUR 1=9/ To 103 21=0 
2018 FOR T-l TO J IF J( T )=0 THEN 

2030 
2815 YS-LEFTS'DS. J' 1 . ,, 1 > ZS-RIGH 

T*< D*< J( T " . 1 ■ 
2020 IF CHRSt I '=YS ijf-f cHPS. 1 -=ZS 

THEN Zl=l GOTO 2035 
2030 NEXT T 
2035 IF Zl=6 THEN PJ=PJ*1 PJ». PJ . 

=CHR»<. I ' 
2040 NEXT 1 RETURN 
2490 REM REDEFINITION 
2508 FOR R-l 10 ? 
2510 READ C»'C=ASCCS) CC='.*6 
2520 FOR T=0TO7 READ X 
2530 POKE' 46080+CC+T '. X NE>;T NEXI 
RETURN 

2540 DATA 9.0.0.0.0,0,0.0.0 
2550 DATA f ,0.0,8, 12. 12.0. 0.O 
2560 DATA e . 3- 3 .0.0-0-0.48. 48 
2570 DATA d. 3, 3.6. 12. 12.6.48.48 
2580 DATA C.51 .51 .0,0,0.0,51 ,51 
2590 DATA b.'Sl ,51 ,0. 12. 12.0,51 .'jl 
2600 DATA j, 51, 51, 8. 51, 51. 0.51. 51 
2610 DATA 93,9b, AC»adG**»af ,99 
2620 DATA bb.bc,bd,be,bf ,D9 
2636 DATA cccd.ce.ct" ,c9 
2640 DATA dd.de.df, d9 
2650 DATA ecef . ?9.lf ,19,99 
2655 DATA 1,8,14,19,23,2b 
2660 FOR R=l TO 28 READ DS( R ' HEX 



2665 FOR R=l TO 
2678 RETORN 



READ DOiR "NEXT 



LE LOGICIEL DE LA SEMAINE 



SORCERY DE VIRGIN 

POUR COMMODORE ET AMSTRAD 



Arriver Maitre dans I Art subtil 
et abscons de la Magie el se 
retrouver comme mmporte 
quel apprenti sur la route Un 
scandale qui ferail vibrer les 
murs de I'assemblee des 
sages, s'il y parvenait ' La 
route semee d'embuches. pour 
partir a la rescousse de tous 
mes collegues imprudents "> Fi 
done, ces |eunes sonl a peine 
capables de conttbler un (eu 
de Samt-Elme et ils voudraient 
deja dominer les elementhaux 




Et comme chaque Ibis en ces 
occasions, e'est au vieux 
Khroum de reparer les 
degats Comme si je pouvais 
me Irouver derriere eux a cha- 
que instant, comme si | etais 
assez puissant pour vamcre 
toules les forces qu'ils reveil- 
lenl avec leurs futiles experien- 
ces. Que le nom de Khroum 
les fasse trembler., tous ces 
esprits issus de la Terre. du 
Feu et de I'Air. Mais I'heure 
nest plus aux recriminations. 
la lulte etemeile enlre Bien el 
Mai |0ue une nouvelle partie. 
et cette fois |e suis une des 
pieces tout comme mes Maf- 
tres le lurent aussi Ah ! Si ces 
satanes eleves ne prenaient 
pas leur role de pion si a 
coeur... 



Passer le portail. leviter. eviter 
ce cerbere. prendre lepee 
pourlendre ce modeste spec- 
tre, bondir sur la marmile re- 
prendre des forces, se concen- 
trer. dechitfrer la combinaison 
de ce portail. recommencer le 
travail dans ce nouveau do- 
mame. se concenlrer. amelio- 
rer I'efticaate des sorts, eviter 
cette ghoule. accelerer. repas- 
ser par-dessous. enjamber le 
cadavre. saisir la liole. la bone 
penetrer I'anbchambre. decou- 
vnr le code de la nappe 
Toutes ces (olies par la laute 
d mconscients Liberer un ma- 
gicien et le renvoyer a la 
guitde. retourner sur ses pas 
franchir de nouvelles portes. 
vamcre des monstres de plus 
en plus puissants. conlinuer. 
vamcre. se battre el vaincre. 
se battre el vaincre Et tou- 
jours recommencer jusqu'a 
l eradication temporaire des 
forces malefiques pour acque- 
rir ses lettres de noblesse 
dans I Art Se battre et liberer 
tous ces enlants qui jouent de 
leurs pouvoirs et setonnenl 
des resultats. 

Partir a I aventure el ne pas se 
retrouver bloque par des pro- 
blemes de vocabulaire. franchir 
des obstacles enlieremenl par 
le biais dun joystick, profiler 
des capacites sonores et gra- 
phiques de ces deux machines 
pour realiser un des meilleurs 
cocktails aventure el arcade 
Voila. en brel, toules les quah- 
tes du produit realise par les 
programmers de chez Virgin 
Un |eu comme il est rare den 
trouver. un jeu que Ion ne 
peut manquer de posseder. si 
Ion ne veut pas voir le Mai 
semparer du monde et des 
micro-processeurs 



PEPE LOUIS CONTRE LE GANG DES PUCES I 



RESUME DES EPISODES 
PHECEDENTS : 
Tramolo, Jobarrj et Pepe Louis 
sonl recueillis dans le monastere 
de l Abbe Descoctions Mais la 
police est a leurs trousses. et ils 
doivent quitter lile de Cuba rapi- 
dement pour re|oinrJre I' Europe 

14eme EPISODE : 

LE RADEAU DE LA MEDUSE 

La vie de moine ne presente 
pas que de mauvais aspects, 
et notre repas s'acheve dans 
une debauche de liqueurs. 
Descochons brandit la Bene- 
dictine Tramolo a opte pour 
un Punch corse Jobard des- 
cend une bouteille de Vodka 
d importation Pour ma part, je 
sirote sagement un verre de 
Tequila au pepper (de la 
bande des coeurs esseules) 
Les flics cubains ont beau etre 
des revolutionnaires assoiMes 
de sang et portant un couteau 
entre les dents, ils n'en restenl 
pas moms des gentlemen et 
respectent parfailement le droit 
d'asile. Ils ont done pris posi- 
tion autour du monastere, mais 
n'ont rien tente pour y pene- 
trer Ca nous un laisse un 
repit. Alors que le ciel eloile 
brille de mille feux et que la 
navetle Discovery passe pour 
la I372eme fois au-dessus de 
nos teles avec son glacon de 
merde congelee aux fesses, 
labbe Descochons vient me 
taper sur lepaule. Ce moinillon 
de 200 livres ne me plait pas 
trop avec sa tonsure a la ore 
d'abeille et son sourire de 
faux-derche. Sa degame de re- 
fugie nazi me flanque des ai- 
greurs destomac 
- Ach. Von Pepe Louis, il faut 
organiser voire evasion de I'fle 
pour certe nuit meme ! 
II cause comme au confession- 
nal. le deplume- du cervelas. 
Sur le ton de la confidence, il 
mexplique que le monastere 
est relie a la cote par un sou- 
terrain secret qui deboule dans 
une grotte pres de la plage 



La-bas. il a fait preparer une 
petite embarcation avec des 
vivres. grace a laquelle nous 
altons pouvoir rejomdre les Ba- 
hamas sans encombre 
Je fais pan du projet a Jobard 
et Tramolo. mais mes deux 
collegues ont tenement suce 
du goulot qu on leur ferait 
prendre des vessies pour des 
phares a iode (c est dire a quel 
point ils sont allumes !). 
Cependant notre choix est res- 
treint et a I'unanimite de ma 
seule voix, je decide d'apph- 
quer le plan de fuite de I'abbe 
Descochons 

- Wunderbar ! Meltons-nous en 
route sans plus tarder pour 
eviter toute koiossalle katastro- 
phe 

Le souterrain est froid el hu- 
mide. ce qui ne manque pas 
de reveiller mes douleurs lom- 
baires, L'odeur du salpetre 
nous pique le pit Jobard et 
Tramolo commencenl a peine 
a emerger lorsque nous attei- 
gnons la plage Descochons 
marche en tete avec une 
lampe de poche. Deux moines 
nous suivent et portent les pre* 
cieuses valises. 

La nuit s'est brusquement as- 
sombrie et nous empeche de 
voir danser la mer dans le 
golfe. Jobard glisse sur une 
meduse qui avait rate le bus 
de la derniere maree II s'etale 
de tout son long dans une fla- 
que d'eau salee et en profile 
pour en avaler un grand verre 
Puis il se releve loeil brillant 
en chantant 

- Waouuu ' Cette liqueur est 
encore meilleure que la Bene- 
dictine. Le cure de Camaret a 
les 

- Chiiiiiiiiiitiiiitttt I! 

Tramolo qui s'est recupere lui 
coiie la main sur la bouche. 

- Shut up Steve I Don't start 
singing now. You'll do that 
when we'll be on board and far 
away from thai fucking island... 
Ce que je pourrais traduire ap- 
proximativement par : 

- Releve-toi de ta chute Steve t 
Ne commence pas a etre 



chantant maintenant. Tu seras 
faisant cela quand nous serons 
grimpant a bord et partant au 
tointain de cette ile forni- 
queuse 

Je suis ires doue pour les lan- 
gues et j'ai appris l anglais en 
suivant la carnere de Maurice 
Chevalier aux Etais- Urns en 
1930 

La barque qui nous attend est 
un joli petit bateau qui doit 
bien (aire dans les huit metres, 
avec une voile, une cabine et 
une reserve de rhum lessen- 
tiel pour un voyage. 

- L'un d'entre vous sait-il navi- 
guer ? 

- No problems ! s'ecne Jobard 
Je fais de la planche a voile 
tous les week-ends a Supper- 
tino. 

Les moines nous aident a em- 
barquer 

- Vos precieuses valises sont 
dans la cale De toute ma- 
niere. le voyage sera court. 
Les Bahamas sont tres pro- 
cnes et vous ne pouvez pas 
les rater. II suffit de barrer a 
I'Est et de bloquer le gouver- 
nail. Wolenzi autre chose ? 

- Ben non. On se debrouillera 
avec ce qu'on a... 

- Alors allez en paix. mes tils, 
et que Dieu vous garde sous 
sa protection. Maintenant, il 
faut appareiHer schnell avanl 
que le jour ne se leve Auf wi- 
derzehen !!1 



menu -> 



AMSTRAD 


Donakl el Rin 


R LONGT 


Page 2 


APPLE 




D DEflY 


Page3 


CANON 


Gas pat -on 


B NELSON 


Page 22 


COMMODORE 64 


Caracleres 


G THOMA 


Page 23 


EXL100 


La Chenille 


JP. HERPELDINGER 


Page 26 


FXT03P 


God 


HG LOZAC 


Page 7 


HECTOR Le manoi 


du lac Cheximou 


MT MICHOUX 


Page< 


MSX 


Check Book 


F MOMMEJA 


Page 6 


ORIC 


Dominos 


F HORNY 


Page 27 


PC 1500 


Defender 


F GROUX 


Page 6 


SPECTRUM 


Jef 


F CARL 


Page 21 


Tl 99 (bi) 




G HAUCHEGOHNE 


Page 5 


Tl 99 (be) 


Sad Sun 


E PARTUT 


Page 25 


TO7 70 


Legende 


P BODET 


Page 7 


VIC 20 




P CUGNET 


Page 21 


ZXB1 


ZX Texte 1 


D BOUDOT 


Page 8 





Dtrecwur de la Publication 

RMidMir en Chef: 

Gerard CECCALDI 

Dfrectftur Technique: 

Benoite PICAUD 

Redecllon: 

Michel DESANGLES 

Michael THEVENET 



Martine CHEVALIER 



CARALI 

Edtteur: 

SHIFT Editions 27, rue du 

General Foy 75008 Paris 

Dfatrlbutlon NMPP 

Public It* eu Journal 

CommlMlon par Hal re 66469 

RC 83 B 6621 

Imprl merle: 

DULAC et JARDIN S.A 

Evreux 




A VOS CONSOLES Tl 99/4 ba sic etendu disponible 

T.I. logo N° 2 disponible 



BON DE C0MMANDE 
TARIFS MAI 1985 



CONSOLES n ACCESSOIRES Tl 99 4 

Mic ro -orOinoteur Tl 99/4A Pal 

Moduloteur Secam France 

Moduiateui Perttel 

Cable liaison magneto cossettes 

Mognom cassettes Texas Instruments 

Mogneio cassettes Lonsoy / Compteur et cable 

Imprimante Seikoscho GP 50 A 

Imprlmonte Seihoscho GP 500 

Imprimante Epson RX80 t net I on/ traction 

Machine a ecme Brothei EP 44 a memoire 

Interface parolleie exterieuie pout Tl 99 

Interface serie exleneure pour Brother pour Tl 99 1 090 F ! . 

Manette de jeux Super Joy a vento-jse avec 

inlertace speclale supportant 2 monertes (mal) 

Monerte Quick Shot II o venlouse Tli bloque 

avec adaptateur pour 2 monetles (mat) 

Monette de jeox Texas USA. la poire 

PROGRAMMATION 

Exi ended Basic manuel franca Is 

Super extended basic graph manuel froncois 

Extension memoire 32K exterieure 

Tl Logo n° 2 en trancois livrabie avril (Module) 

Mini memoire livrable avril (Module) 



UOOF 

500 F G 

500 f a 

95 FD 
595 F : : 
370 F a 

1 350 F 
2500 f : 1 

4I50F 

2 390F 

1 090 F [ I 



95 f Q MODULES LOfSIKS 

Connect foui 
30 F i Jeux , etI0 | 
!50 F jeux teka 2 

Invoders 

Car works 

Soccer 

Zero 2op 
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disponible avril. 
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MAHVJU 



147 F Jeux video 2 



147 F 



BOO F ; 
1200F I 

I 340 F i 
895 F I 
895 F I 



147 F [ ! The attack 147 F t 

147 FD Othello 206 F [1 

206 F : ] Munch Man 206 F ! I 

147 F Chasse aux wimpls 147 FN 
250 f Video Chess 450 F a 

147 FL ' 



K7 EPSILON/SOFTWARE POUR Tl 99 BASIC ETENDU 

Lunar Lander 95 F L 1 lunar Jumper 120 F 

Soiarsystem 1 20 F Sum Games 1 20 F 

• K7 Lunar Lander 2 + 2X7 I ensemble 260 F 

K7 HEBDOGICIELS SOFTWARE POUR Tl 99 

N" 3 rubls sacre Basic etendu 95 F D 

N" 4 6 jeui donl Dark Crystal Basic etendu 1 20 F D 

N" 2 12 |eux dont Roland Garros Basic etendu 1 50 F D 

MODULES TEXAS ORGANISATION 

Geslion de lie titers 260 F U G est ion de rapports 375 F G 

Gesilun pdvee 360 F G 

MODULES FUNWARE POUR Tl 99. 4 

Raboit Roil. Driving Demon: St nick. Ambulance 

L ensemble : 400 F [ ) 

MODULES R0M0X "OUR Tl 99 

Princess ond frog 1 20 F . Anieatei 120 F 

Rotor raiders 100 Ft 1 Henpecked 100 F 

MODULES EDUCATION 

Addition/Substraction 

n° 1 OU 2 147 F 

Mission moirts 147 F 

Meteor-Multipllcoilon 147 F 

Beginning Grammar 147 F 

N ombre magic 147 F 



LOT N*l INDISPENSABLE 

• Module BASIC ETENDU manuel en froncois 

• K7 Bnsic por sot meme 

• K7 Lunar Lonoer 2 

• K7lnltoductK>n aux leuxsuiTI 99^1 . . 850 FD 



MODULES JEUX 

Porsec 

Adventure pirate 

Munch mobile 

Buck rogers 

Retour du pirate 

Mash 

Micro burgeon 

Hopper 

Jaw breaker 



Moon patrol 
Jungle hunl 
Pole Position 
Protector II 
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Tunnel ol doom 
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Moonmlne 


250 F 


250 F' 


Micro sutgeon 


250 F 


350 f 


Popeye 


400 F 


250 F D 


Demon attack 




250 F ; \ 


Burger lime 




250 F , i 


Hopper 




250 F 


Stoi tieck 




250 FD 


Treasure Island 


250 F 


)FT POUR Tl 99 




219 FC 


Defender 


219 F 


219FI 


Picnic Paranoia 


250 F 


210 F! 


Donkey kong 


250 F [ i 


250 F 1 


Miss Pocmon 


250 FD 



Ces pin ioni inalcalilf tt peuvenl frlre modlllfts sans preavls 
ProOuiis d i span i Dies dans la llmltt oe nos slocks en tnogosin 
forticipation qui Irais a« port el a'eipedilion en recofflmonde 
expiBss pour les loglclils + 30 t. Se rtnseipner pour let tons 
au-dessus de S kg ainsi gue pour les expeditions a i etronger 

IA REGIE A CALCUL 

65. 67 bd Somt-Germoin 75005 PARIS 

tel 325 68 SB ■ Telex ETRAV 220064 F 1 1303 RAC 

livratMit dei produils duponibles tous 8 leury 
Ponuno grntull MDuWrr-loyongt 



MINIMEM0IRE 

Ce module ne se contente pas de vous otlrir 4 Ko de memoire 

RAM (aiimentee ooi pile) peimetiant ic sauvegatde des 

piogtammes et donnees loisque vous eieignez lordinateui 

Il a aussi : 

• 4 Ko de memoire mone (ROM) et 6 Ko de memoire mone 

grophique (G - ROM) contenant des utiliioites "es inleres 

sonls 

- occes possible a lextension 32 K en Tl basic. 

-cnoigement de piogiammes-objels ecrils en ossemrjleur 

soit sur mini-memoiie. soil sui extension 32 k 

-utilisation de PEEK et POKE oppe! de sous-programmes 

hobituellemeni non occessibles: 

-piogiamme de techetche derteuts (Easy Bug - Debug) 

Le module avec manuel + manuel assembler sur mini- 

memoire B95 F C 



MICRO-ECOLE MATRA MICRO-ECOLE MATRA. 



Addition Cannon 147 F Li 
Division/Demolition 147 F □ 
Multiplication 1 147 F G 

Early Learning 250 F I 



LOT N" Z TOUT LE LOGO 

Module logo * mtVmofre 32 K 1995F 




M6moire 32 K + 2 guides 
PROMOTION ECOLE : 795 F D 



Caraderistiques techniques 

- Microprocesseui 13803 

- 32 Ko de memoire : 

16 Ko RAM dont 8 Ko utihsateur 

16 Ko ROM comprenant le basic Microsoft avec 

editeui. I'6di!eui/assembleur Alice 

- Affichage : 16 x 32, 25 x 4.0, 25 x 90 (Ugnes x 
colonnes) 

-Definition graphique 160 x 125, 320 x 250 
(sous assembleui) 

- Connectable sur tout televiseur pentel 
(adaptateur antenne non et blanc en option) 

- Sortie impnmante 

-Entree-sortie pour lecteur/enregistreur de 
programmes 

- Extension a 24, Ko RAM utilisateur, en option 




Guide Alice Decouvrez Le Basic - Guide Alice d'ins- 
Iructions de 1'edueut assembleur - Alice version 
cotfrel - Lecteur/eniegislieui de programmes 
Alice - Emplacemeni pour I'exiension 16 Ko (non 
livree avec le cortte!) - 4 casselles logiciels - Cable 
pentel et cable de raccordemenl au lecteur/ 
eniegistreur deprogrammes - CSble d all menial ion 
secteur 



PROMOTION ECOLE : 1 595 F □ 
Garantie 1 an - Nous demander la liste des logiciels. jeux et librairies. 



